For n As Integer = 1 To Sheet.Rows.Count -1
Dim bh0 As String = sheet(n,0).Text
Dim bh1 As String = sheet(n,1).Text
Dim bh2 As String = sheet(n,2).Text
Dim bh3 As String = sheet(n,3).Text
Dim bh4 As String = sheet(n,4).Text
Dim bh5 As String = sheet(n,5).Text
Dim bh6 As String = sheet(n,6).Text
Dim bh7 As String = sheet(n,7).Text
Dim bh8 As String = sheet(n,8).Text
If DataTables("表A").Find("第一列 = '" & bh0 & "' And 第二列 = '" & bh1 & "' And 第三列 = '" & bh2 & "' And 第四列 = '" & bh3 & "' And 第五列 = '" & bh4 & "' And 第六列 = '" & bh5 & "' And 第七列 = '" & bh6 & "' And 第八列 = '" & bh7 & "' And 第九列 = '" & bh8 & "'") Is Nothing Then '如果不存在同编号的订单
和
If DataTables("表A").SQLFind("第一列 = '" & bh0 & "' And 第二列 = '" & bh1 & "' And 第三列 = '" & bh2 & "' And 第四列 = '" & bh3 & "' And 第五列 = '" & bh4 & "' And 第六列 = '" & bh5 & "' And 第七列 = '" & bh6 & "' And 第八列 = '" & bh7 & "' And 第九列 = '" & bh8 & "'") Is Nothing Then '如果不存在同编号的订单
加好友 
发短信
Post By：2019/9/3 13:17:00 [只看该作者]
