Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog = DialogResult.OK Then
For Each file As String In dlg.filenames
Dim dt_ddmx As DataTable = DataTables("表A")
Dim book As new XLS.Book(dlg.FileName)
Dim sheet As XLS.Sheet = book.Sheets("Report")
Dim khmc As String = ""
Dim riqi As String = ""
For i As Integer = 3 To sheet.Rows.Count - 1
If sheet(i, 5).Text <> "" Then
If sheet(i, 6).Text = "" Then
khmc = sheet(i, 5).Text
Else
If sheet(i, 10).text <> "" Then
If sheet(i, 10).text = "leaving HK latest mid February 2017" Then
riqi = sheet(i, 10).text
Else
riqi = sheet(i-1, 10).text
End If
Dim ndr As DataRow = dt_ddmx.AddNew
ndr("编码") = sheet(i, 5).text
ndr("规格") = sheet(i, 6).text
ndr("数量") = sheet(i, 8).text
ndr("单位") = sheet(i, 9).text
ndr("客户名称") = khmc
ndr("交货日期") = riqi
End If
End If
End If
Next
Next
End If
蓝色部分是我写的，不能实现，请老师赐教，谢谢！！
加好友 
发短信
Post By：2016/11/28 16:35:00 [只看该作者]
