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 bn2 As String = sheet(n,2).Text
Dim bn3 As String = sheet(n,3).Text
If DataTables("表A").Find("第一列 = '" & bh0 & "' And 第二列 = '" & bh1 & "' And 第三列 = '" & bh2 & "' And 第四列 = '" & bh3 & "'") Is Nothing Then '如果不存在同编号的订单
Dim r As Row = Tables("表A").AddNew()
到底是哪个地方出错了???