- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]用Merge合并access数据后很多空白行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176047)
-- 发布时间：2022/3/28 18:17:00
-- [求助]用Merge合并access数据后很多空白行
用帮助文件这段代码合并数据后，合并进来的数据，出现很多空行，是什么情况
Dim dlg As New
OpenFileDialog
dlg.Filter = "Access文件|*.mdb"
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.SourceTableName = "订单"
mg.DataTableName = "订单"
mg.Merge()
Next
End
If
-- 发布时间：2022/3/28 19:30:00
-- 回复：（xuhuibin105）[求助]用Merge合并access数据后...
原始数据存在空行？
可以写入一个条件 合并后删除符合条件的空行 deltelfor
-- 发布时间：2022/3/28 20:01:00
--
我查看了access文件，里面没有空行，用软件自带的高速合并没有空行，用merge命令合并后就会出现很多空白行，不知道是哪里出现了问题。
-- 发布时间：2022/3/28 20:06:00
--
会不会是因为我设置了关联表的原因，因为导入的数据中，有几个表是相互关联的
-- 发布时间：2022/3/28 20:34:00
--
Merge不可能会自动添加空行。检查一下表事件
-- 发布时间：2022/3/28 21:10:00
--
大神，用以下代码是否可以在导入数据的时候关闭表事件？
systemready = false
导入代码
systemready = true
-- 发布时间：2022/3/28 21:13:00
--
可以。这种问题试试不就知道了
-- 发布时间：2022/3/29 9:42:00
--
大神，刚才试了一下，出现一下情况，请求帮助：
1、使用了
systemready = False
Dim dlg As New OpenFileDialog
dlg.Filter = "Access文件|*.mdb"
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.SourceTableName = "订单"
mg.DataTableName = "订单"
mg.Merge()
Next
End If
systemready = True
2、关闭了所有表事件；
导入数据之后，还是出现了很多空白行，于是我又打开了access文件，发现出现空白行与access中的_SortKey列有关，比如access表_SortKey列的值是45,46,47，那么导入之后，就会出现先44行空白，直到衔接上45编号。
3、于是我就删除了access表中的_SortKey列，再次导入，系统提示如下：
.NET Framework 版本：2.0.50727.9151
Foxtable 版本：2017.8.19.1
错误所在事件：
详细错误信息：
至少一个参数没有被指定值。
4、此时，我又试了foxtable自带的高速合并，却能正常合并，请大神予以指点
[此贴子已经被作者于2022/3/29 9:43:45编辑过]
-- 发布时间：2022/3/29 9:44:00
--
请上传实例测试
-- 发布时间：2022/3/29 10:23:00
--
大神，在做实例的过程中，我一个一个表测试，发现是我的代码写错了，导致出现很多空白行，谢谢大神的指点。
