主题：关于合并加载数据问题，求教老师！

这个问题? 1楼仁兄已经回复你了.

搞不定,把Excel文件和狐表文件发上来.

dim files as string()={"c:\文件夹1\表1.xls","c:\文件夹2\表1.xls","c:\文件夹3\表1.xls"}

Tables("表A").StopRedraw()

for each file as string in files 

Dim Book As New XLS.Book(file) 

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Dim nms() As String = {"第一列","第二列","第三列"} 

For n As Integer = 1 To Sheet.Rows.Count -1 

    Dim bh As String = sheet(n,0).Text 

    If DataTables("表A").Find("第一列 = '" & bh & "'") Is Nothing Then 

        Dim r As Row = Tables("表A").AddNew()

        For m As Integer = 0 To nms.Length - 1

            r(nms(m)) = Sheet(n,m).Value

        Next

    End If

Next

next

Tables("表A").ResumeRedraw()