|
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
If nms(m) > "" Then
dr(nms(m)) = Sheet(n,m).Value
End If
Next
End If
Next
Tables("表A").ResumeRedraw()
Next
End If
|
加好友 
发短信
Post By：2016/7/6 10:59:00 [显示全部帖子]
