Foxtable(狐表)用户栏目专家坐堂 → [求助]合并按钮提示错误


  共有1967人关注过本帖树形打印复制链接

主题:[求助]合并按钮提示错误

美女呀,离线,留言给我吧!
feng1999
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:100 积分:706 威望:0 精华:0 注册:2017/1/5 15:06:00
[求助]合并按钮提示错误  发帖心情 Post By:2017/11/23 14:53:00 [只看该作者]

老师,您好!
下面是合并按钮的代码:
Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "RS485芯片"
    mg.DataTableName = "RS485芯片"
    mg.Merge()
End If
但执行代码是提示如下错误,是什么原因导致的?

图片点击可在新窗口打开查看此主题相关图片如下:6$(kk$hr@otnhg16l(r`q.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110581 积分:562801 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/11/23 16:16:00 [只看该作者]

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.Format = "Execl"
    mg.SourceTableName = "RS485芯片$"
    mg.DataTableName = "RS485芯片"
    mg.Merge()
End If

 回到顶部