有问题的数据在Execl中后面有多余的空格，另外导入后再一起保存，可有效提高导入速度
DataTables("粘贴数据").StopRedraw()
Dim nms() As String = {"品名"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,0).Text
If Sheet(n,1).Value="" Then
msgbox("品名不能为空!")
Return
End If
'Dim dr As DataRow = DataTables("商品档案").sqlFind("品名 = '" & bh & "'")
'If dr Is Nothing Then '如果不存在同编号的订单
Dim dr As DataRow = DataTables("粘贴数据").AddNew()
dr("粘贴数据") = Sheet(n,1).Value.trim() '证件号码
'book.Save(fl)
Next
DataTables("粘贴数据").save
Tables("粘贴数据").ResumeRedraw()
Else
Return
End If
加好友 
发短信
Post By：2018/1/5 22:40:00 [显示全部帖子]
