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条记录
请版主解惑!!!!