| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]怎么把帮助里的合并代码，改成合并到当前表呢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56038) |
| -- 作者：zhuzhi -- 发布时间：2014/8/28 10:54:00 -- [求助]怎么把帮助里的合并代码，改成合并到当前表呢 帮助里“合并”的代码，我理解是我要指定合并到的数据表，而且该表的结构应该和合并入的数据表一致。上次得老师们帮助产生一个代码： Dim dlg As New OpenFileDialog dlg.Filter = "Excel文件|*.xls" dlg.MultiSelect = True \'允许选择多个文件 If dlg.ShowDialog =DialogResult.OK Then For Each fl As String In dlg.FileNames Dim mg As New Merger mg.SourcePath = fl mg.Format = "Excel" mg.SourceTableName = "Sheet1$" mg.DataTableName = "表A" mg.Merge() Next End If 以这代码为例，能否把具体的“表A”替换为任意的当前数据表呢 因为我想提高代码的通用性。如果，我能保证要合并的数据结构和要合并的表一致，能否直接把上述代码替换为当前表呢，直接把表a改成table么？还是…… 如果，我想通用性更改一点，直接让代码检索合并后的表，把相同字段的数据合并，可能做到吗？ 感谢老师们！ |
| -- 作者：Bin -- 发布时间：2014/8/28 10:57:00 -- mg.DataTableName = currenttable.name |