- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 代码合并数据出错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178402)
-- 发布时间：2022/7/3 9:59:00
-- 代码合并数据出错
此主题相关图片如下：微信截图_20220703095625.png
代码如下：
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter = "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.Format = "excel" \'指定格式
mg.SourcePath = dlg.FileName
mg.SourceTableName = "设置资料" \'指定要合并的表
mg.DataTableName = "设置资料" \'指定要接收的表
mg.Merge() \'开始合并
End If
-- 发布时间：2022/7/3 10:03:00
--
找到问题了，少个符号！
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter = "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.Format = "excel" \'指定格式
mg.SourcePath = dlg.FileName
mg.SourceTableName = "设置资料$" \'指定要合并的表
mg.DataTableName = "设置资料" \'指定要接收的表
mg.Merge() \'开始合并
End If