主题：[求助]合并EXCEL表中的数据

求助，我在合并EXCEL表中的数据，要求是从第9行第二列开始合并数据，但其中第4列和第6列的数据不用合并，也就是说我的foxtabl的表设计中，与excel表中的列数不一样，少第4与第6列，在写代码时，不知道如何跳过第4列与第6列。

Dim dlg As new OpenFileDialog
dlg.Filter = "excel文件|*.xls;*.xlsx"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    For Each f As String In dlg.FileNames
        Dim  Book As New XLS.Book(f)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Tables("表A").StopRedraw()
        Dim nms() As String = {"PO番号","INVOICE","到着予定","銘柄","SAP","数量","数量包","批号","滅菌日","有効期限"}
        For n As Integer = 8 To Sheet.Rows.Count -1
            Dim bh As String = sheet(n,8).Text
            MessageBox.Show("'"& bh &"'")
            If bh = "" Then
                DataTables("表A").LoadTop = "100"
                DataTables("表A").Load
                Tables("表A").ResumeRedraw()               
                Exit For
            Else
                Dim dr As DataRow = DataTables("表A").Find(" 批号 = '" & bh & "'")
                If dr Is Nothing Then '如果不存在同批号的订单
                    dr =  DataTables("表A").AddNew()
                End If
                For m As Integer = 0 To nms.Length - 1
                    dr(nms(m)) = Sheet(n,m).Value
                Next
            End If
        Next
        Tables("表A").ResumeRedraw()
    Next
End If

excel中的列如下

空列   PO番号    INVOICE   集装箱    到着预定    码头   銘柄   SAP    数量   数量包   批号   灭菌日    有效期限

以上合并时，集装箱列和码头列不要合并。

问题解决，谢谢！

另外，如果要加载未锁定的记录，如何设置?

datatables("表A").LOADFILTER = " ? "

DATATABLES("表A").LOAD

？处如何设条件

问题解决了。

[_locked] = false

这里的中括号不能少。

继续追问：

      如果现在“表C”与“表A”通过"PO番号"与"INVOICE"关联，“表C"为父表，我上面的代码把EXCEL表中的数据合并到了”表A“中，如何实现在合并过程中如果发现某条记录在”表C"中不存在父表记录，则自动在“表C”中新增父表记录。