版主，您好，麻烦您指导指导。谢谢！
代码如下：
Dim Book As New XLS.Book("c:\data\多芯插针.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("多芯插针").StopRedraw()
Dim nms() As String = {"SN码信息", "穿纤时间和人员", "穿纤时间", "人员", "备注1", "备注2", "黄色套管为已刮胶产品", "蓝色套管为多次穿纤产品", "ORT试验", "毛细管验证", "歪", "烘箱异常"}
For n As Integer = 1 To Sheet.Rows.Count - 1
Dim bh As String = sheet(n, 0).Text
Dim dr As DataRow = DataTables("多芯插针").Find("SN码信息 = '" & bh & "'")
If dr Is Nothing Then '如果不存在同编号的订单
dr = DataTables("多芯插针").AddNew()
End If
For m As Integer = 0 To nms.Length - 1
dr(nms(m)) = Sheet(n, m).Value
Next
Next
Tables("多芯插针").ResumeRedraw()
EXCEL表格见附件，代码存放位置见附件，点击按钮后显示错误。
加好友 
发短信
Post By：2024/1/24 11:52:00 [显示全部帖子]
此主题相关图片如下：示图2.jpg
