请教:ACC数据库合并表时提示错误,是何原因? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教:ACC数据库合并表时提示错误,是何原因?

共有17232人关注过本帖树形打印复制链接主题：请教:ACC数据库合并表时提示错误,是何原因?

baoxyang

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3313 积分：23140 威望：0 精华：1 注册：2009/3/31 11:25:00

Post By：2009/11/3 15:09:00 [显示全部帖子]

需要加入一行过滤为空值的，我从EXCEL导入时也需要这样。

baoxyang

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3313 积分：23140 威望：0 精华：1 注册：2009/3/31 11:25:00

Post By：2009/11/4 12:26:00 [显示全部帖子]

以下是引用yangming在2009-11-4 10:51:00的发言：
就是这段代码,又报其它错了,请看图片
Dim mg As New Merger
mg.SourcePath = "c:\导出文件\2009-11-3导出.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "员工档案" '指定要合并的表
mg.DataTableName = "员工档案" '指定接收数据的表
mg.Filter="[_Identify] Is Not Null"
mg.Merge() '开始合并

图片点击可在新窗口打开查看

此主题相关图片如下：合并表2.jpg

还需要加一行字段判断： mg.Filter = "[列] <> ''" '此列的值必须是不含空值的情况

baoxyang

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3313 积分：23140 威望：0 精华：1 注册：2009/3/31 11:25:00

Post By：2009/11/4 12:32:00 [显示全部帖子]

Dim dlg As New OpenFileDialog '定一个新的OpenFileDialog
dim s1 as string
   dlg.Filter= "Excel文件|*.xls"    '|文本文件|*.txt|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
   s1 = dlg.FileName
   If s1<> " " then
      Dim Book As New XLS.Book(s1)
      Dim ss3 as string = Book.Sheets(0).Name + "$"
      Dim mg As New Merger
      mg.SourcePath = s1
      mg.Format = "excel" '指定格式
      mg.SourceTableName = ss3     '指定要合并的表
      mg.DataTableName = "导入临时表"   '指定接收数据的表
      mg.Filter = "[货主名称] <> ''" '指定合并条件
      mg.Merge() '开始合并
end if
end if
如去掉红色部分就会出现楼主的问题。

下一主题 >> << 上一主题

主题：请教:ACC数据库合并表时提示错误,是何原因?