主题：【求助】窗口中的table

老师，附件是我要导入的订单表和foxtable示例。现在的问题是：我要将订单表中的客户名称（如w12792）导入foxtable订单库表中的客户名称列，然后该客户对应的所有编码（如0050325、.............）也导入foxtable订单库表中的编码列，代码该怎么写？？

做个按钮，执行代码

 

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim dt_dd As DataTable = DataTables("订单库")
    Dim dt_ddmx As DataTable = DataTables("订单明细")
    Dim book As new XLS.Book(dlg.FileName)
    Dim sheet As XLS.Sheet = book.Sheets("Report")
    Dim khmc As String = ""
    For i As Integer = 1 To sheet.Rows.Count - 1
        If sheet(i, 5).Text <> "" Then
            If sheet(i, 6).Text = "" Then
                Dim ndr As DataRow = dt_dd.AddNew
                ndr("客户名称") = sheet(i, 5).text
                khmc = sheet(i, 5).text
            Else
                Dim ndr As DataRow = dt_ddmx.AddNew
                ndr("编码") = sheet(i, 5).text
                ndr("规格") = sheet(i, 6).text
                ndr("数量") = sheet(i, 8).text
                ndr("客户名称") = khmc
            End If
        End If
    Next
End If

多谢老师，我还有个问题就是怎么把交货日期列的英文日期转换成（2017-2-14）这种格式的日期也一一对应到编码中呢？？麻烦老师赐教，谢谢啦！！

把列类型改为日期型即可

谢谢老师

老师，如果导入订单表改成附件这种表13楼的代码又该怎么改呢？？请老师赐教，谢谢啦！！

For i As Integer = 1 To sheet.Rows.Count - 1

好打击信心啊，这么简单都想不到。老师还有那个英文日期转换不成功哦，详细错误信息是：标准表达式中数据类型不匹配。

判断一下日期列内容，如果包含“leaving HK latest mid”这些字符的就不需要赋值