- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 高速合并数据 如何在遍历当前表名之后，只运行一次数据合并呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=164245)
-- 发布时间：2021/5/1 0:50:00
-- 高速合并数据 如何在遍历当前表名之后，只运行一次数据合并呢？
高速合并表数据 如何在遍历当前表名之后，只运行一次数据合并呢？
而不是遍历多次
如当前假设遍历出表名有：1.2.3 那么怎么设置红色部分代码只合并一次数据，而不是合并三次数据
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter="|*.*"
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
For Each dt As DataTable In DataTables
output.show(dt.name)
\'For Each dc As DataCol In dt.DataCols
\'output.show(dc.name)
\'Next
mg.SourceTableName = dt.name
mg.DataTableName = dt.name
mg.Merge()
Next
End If
-- 发布时间：2021/5/1 9:06:00
--
不懂你想干什么。
只想一次的话：
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter="|*.*"
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
For Each dt As DataTable In DataTables
output.show(dt.name)
\'For Each dc As DataCol In dt.DataCols
\'output.show(dc.name)
\'Next
mg.SourceTableName = dt.name
mg.DataTableName = dt.name
mg.Merge()
Exit For
Next
End If
-- 发布时间：2021/5/1 11:43:00
-- 回复：（有点酸）不懂你想干什么。只想一次的话：Dim ...
基础资料表里面只有一条数据
结果合并会新增多行空值
此主题相关图片如下：11.gif
-- 发布时间：2021/5/1 21:11:00
--
基础数据表里是不是有很多空行？
-- 发布时间：2021/5/2 8:56:00
-- 回复：（天宇科技）基础数据表里是不是有很多空行？
经过检查 没有空行 且只有一条数据
-- 发布时间：2021/5/2 19:39:00
--
估计有空还没有全部加载吧，你直接打开数据库看了吗？。