主题：移动开发提取数据问题

一样的

Dim dr1 As DataRow = DataTables("表A").find("第一列 = '123'")
If dr1 IsNot Nothing Then
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For Each dc As DataCol In DataTables("表A").DataCols
        dr2(dc.Name) = dr1(dc.name)
    Next
End If