主题：[求助]复制行

谁帮我改一下代码，我要填充整行，但是这段代码只能填充一列

Dim tbl As Table = Tables("表A_Table1")
If tbl.Current IsNot Nothing Then
    Tables("表B").Current("第一列") = tbl.Current("第一列")
End If
Forms("表A").Close()

Dim tbl As Table = Tables("表A_Table1")
If tbl.Current IsNot Nothing Then
   For i As Integer = 0 To Tables("表A_Table1").Cols.Count-1

Tables("表B").Current(i) = tbl.Current(i)

Next

End If
Forms("表A").Close()

出现问题：

当表A和表B列顺序不一样时，数据复制错位，而且表B的结构是通过复制表A得来。无表达式列，数据类型、长度都一样了。

有什么办法能解决？

那你要保持表B和表A的顺序一样，或用调用其他表数据的方法来赋值表B