……
If dlg.ShowDialog = DialogResult.OK Then
Tables("jcjgsbsj").StopRedraw()
For Each f As String In dlg.FileNames
Dim Book As New XLS.Book(f)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim nms() As String = {"姓名","证件号码","核酸检测结果","核酸检测时间","核酸检测机构","管号","行政区名称"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,1).Text
Dim gh As String = sheet(n,5).Text MessageBox.Show("'"& bh &"'")
If bh > "" andalso gh > "" Then
Dim dr As DataRow = DataTables("jcjgsbsj").Find(" 证件号码 = '" & bh & "' and 管号= '" & gh & "'")
If dr Is Nothing Then '如果不存在同批号的订单
dr = DataTables("jcjgsbsj").AddNew()
For m As Integer = 0 To nms.Length - 1
dr(nms(m)) = Sheet(n,m).Value
Next
End If
next
Next
Next
Tables("jcjgsbsj").ResumeRedraw()
End If
加好友 
发短信
Post By：2022/3/1 20:17:00 [显示全部帖子]
