用这种方法合并同列名的EXCEL表格数据，就不会出现掉数据的现象！

会自动找出excel表中对应的列合并到foxtable中！

Tables("展会信息.原始名单").Focus
MessageBox.Show("请核对Excel文件列名是否与\'原始名单\'工作表列名完全一致!","提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim  Book As New XLS.Book(dlg.FileName)
    Dim  Sheet As XLS.Sheet = Book.Sheets(0)
   
    Tables("展会信息.原始名单").StopRedraw()
    \'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As  Row = Tables("展会信息.原始名单").AddNew()
        For nb As Integer = 0 To sheet.Cols.Count -1
            If  Tables("展会信息.原始名单").Cols.Contains(sheet(0,nb).Value) Then
                r(sheet(0,nb).Value) = Sheet(n,nb).Value
            End If
        Next
    Next
    Tables("展会信息.原始名单").ResumeRedraw()
End If