Dim dr As Row = Tables("登记窗口_Table1").Current '
If dr Is Nothing Then
Else
Dim r As Row = Tables("引用窗口_Table1").Current '
for each r2 As DataRow In DataTables("引用窗口_Table1").Select("[选中] = true ")'
Dim Cols1() As String = {"姓名", "代号"} '
Dim Cols2() As String = {"部门", "下属"} '
For i As Integer = 0 To Cols1.Length - 1
r2(Cols2(i)) = r(Cols1(i))
Next
next
End If