Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("平台主丹.平台明细").StopRedraw()
Dim nms1() As String = {"客户姓名","联系电话","订购产品","订购数量","订购单价","订购金额","客户地址","快递单号","订单编号"}
Dim nms2() As String = {"客户姓名","联系电话","订购产品","订购数量","订购单价","订购金额","客户地址","快递单号","订单编号"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim r As Row = Tables("平台主单.平台明细").AddNew()
For i As Integer = 0 To sheet.Cols.Count -1
Dim idx As Integer = array.indexof(nms1, sheet(0,i).Text)
If idx >= 0 Then
r(nms2(idx)) = sheet(n, i).Text
End If
Next
Next
Tables("平台主单.平台明细").ResumeRedraw()
End If
此主题相关图片如下：dddddddddd.jpg
加好友 
发短信
Post By：2018/3/24 17:47:00 [只看该作者]
