主题：复制到另外的表格怎么做啊

 代码

Dim fdr As DataRow = DataTables("表B").Find("第一列 = '" & e.Form.Controls("Label1").Text & "'")
If fdr IsNot Nothing Then
    fdr("第二列") = Tables("表A").Current("第一列")
    fdr("第三列") = Tables("表A").Current("第二列")
End If