Dim Cols1() As String = {"日期", "名称", "型号", "材质"} Dim Cols2() As String = {"日期", "名称", "型号", "材质"} Dim rs As List(of Row) = Tables("表A").GetCheckedRows() For Each r As Row In rs Dim nr As DataRow = DataTables("表B").addnew For i As Integer = 0 To Cols1.Length -1 nr(Cols2(i)) = r(Cols1(i)) Next Next