--
For Each s As String In DataTables("表A").GetValues("第一列")
Dim drsa As List(Of DataRow) = DataTables("表A").Select("第一列=\'" & s & "\'","_sortkey")
Dim drsb As List(Of DataRow) = DataTables("表B").Select("第一列=\'" & s & "\'","_sortkey")
For i As Integer = 0 To math.Min(drsa.Count - 1,drsb.Count - 1)
drsa(i)("第二列") = drsb(i)("第二列")
Next
Next