[求助]合并excel数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

求教，如何实现在合并过程中查找是否存在"证件号码"和"管号"相同的行，存在跳过，不存在则增加？下面代码如何修改？

Dim dlg As new OpenFileDialog

dlg.Filter = "excel文件|*.xls;*.xlsx"

dlg.MultiSelect = True

If dlg.ShowDialog = DialogResult.OK Then

For Each f As String In dlg.FileNames

Dim Book As New XLS.Book(f)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Tables("jcjgsbsj").StopRedraw()

Dim nms() As String = {"姓名","证件号码","核酸检测结果","核酸检测时间","核酸检测机构","管号","行政区名称"}

For n As Integer = 1 To Sheet.Rows.Count -1

Dim bh As String = sheet(n,1).Text

MessageBox.Show("'"& bh &"'")

If bh = "" Then

DataTables("jcjgsbsj").LoadTop = "100"

DataTables("jcjgsbsj").Load

Tables("jcjgsbsj").ResumeRedraw()

Exit For

Else

Dim dr As DataRow = DataTables("jcjgsbsj").Find(" 证件号码 = '" & bh & "'")

If dr Is Nothing Then '如果不存在同批号的订单

dr = DataTables("jcjgsbsj").AddNew()

End If

For m As Integer = 0 To nms.Length - 1

If nms(m) > "" Then

dr(nms(m)) = Sheet(n,m).Value

End If

Tables("jcjgsbsj").ResumeRedraw()

End If

[此贴子已经被作者于2022/3/1 18:09:06编辑过]

……

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

End If

Tables("jcjgsbsj").ResumeRedraw()

End If

这个代码会不会因为不同日期存在相同证件号和管号的情况而录不进去?

如果有这种情况，需要怎么处理？

添加日期的验证

和管号的用法一样，也加到查询条件里

谢谢蓝老师，功能可以实现。但存在效率问题，提示证件号码存在，需反复点击确定才能继续，如何完善？

补充说明：管号表内允许重复，证件号码也允许重复，但管号只能使用1次，因此不存不同日期存在相同证件号和管号的情况

把自己代码里的MessageBox去掉咯

主题：[求助]合并excel数据