Dim Cols1() As String = {"品名","整数"}
Dim Cols2() As String = {“品名”,"整数B"}
For Each dr1 As DataRow In DataTables("表A").datarows
Dim dr2 As DataRow = DataTables("表B").find("品名 = '" & dr1("品名") & "' And 500 =< '" & dr1("整数B") & "'")
If dr2 Is Nothing
dr2 = DataTables("表A").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
End If
Next
老师能帮我修改一下吗?