Dim tsxx As WinForm.Label = e.Form.Controls("Label42")
tsxx.text = "正在导入******,请耐心等待!"
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\销售出库单列表.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Tables("销售出库单列表").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim ra = ws.UsedRange
Dim nms() As String = {"制单人","仓库编码","仓库","销售订单号","发货单号","出库日期","出库单号","出库类别","销售部门","业务员","客户名称","备注","存货编码","存货名称","主计量单位","数量","货运单号","发货地址"}
'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 2 To ra.Rows.Count
Dim ckdh As String = ws.cells(n,8).Text
Dim chbm As String = ws.cells(n,14).text
If DataTables("销售出库单列表").SQLFind("出库单号 = '" & ckdh & "' and 存货编码 = '" & chbm & "'") Is Nothing Then '如果不存在同编号的计划表
Dim r As Row = Tables("销售出库单列表").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = ws.cells(n,m+1).Value
r("导入日期") = Date.Today
r.save
Next
End If
Next
假如，excel有2行完全相同的数据，希望第一次都能导入，下次再导入的时候跳过去。这个条件判断怎么写?
加好友 
发短信
Post By：2017/4/18 16:18:00 [只看该作者]
