主题：怎样在一行输入

表ADoubleClick事件

Dim dr1 As DataRow = e.Table.Current.DataRow
Dim dr2 As DataRow = DataTables("表B").AddNew()
For Each dc As DataCol In DataTables("表A").DataCols
    dr2(dc.name) = dr1(dc.name)
Next