d:\文件路径.xls文件里面有30万条记录需要合并到现有的表中存在问题：
1、手动合并，选择无条件合并，最后只能合并65535条记录，文件路径.xls文件里面的内容也消失了
2、用代码：
If DataTables.Contains("各部门文档汇总") = False Then '如果表没有加载
DataTables.Load("各部门文档汇总") '加载表"
End If
MainTable = Tables("各部门文档汇总") '切换表
DataTables("各部门文档汇总").DeleteFor("[序号] is null") '如果系列号为空,清空所有行,准备新的加载
Dim Book As New XLS.Book("d:\文件路径.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("各部门文档汇总").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"文件名", "文件类型", "最后修改时间", "创建时间", "路径"}
'注意下面的循环变量从1开始，而不是从0开始，因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count - 1
Dim r As Row = Tables("各部门文档汇总").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n, m).Value
Next
Next
Tables("各部门文档汇总").ResumeRedraw()
最后只能合并65535条记录，文件路径.xls文件里面的内容也只剩65535条记录
请版主解惑！！！！
加好友 
发短信
Post By：2023/5/26 11:20:00 [只看该作者]
