主题：[求助]数据填充（问题已解决，详见2楼代码）

Tables("表B").AddNew(5)  '在表B增加5行
Dim dt As DataTable = DataTables("表B")  '定义表B为dt
For Each dr As DataRow In dt.DataRows     '遍历表B的所有行
    If dr.RowState = DataRowState.Added Then       '如果遍历行为新增行
        dr("第一列")=Tables("表A").Current("第一列")   '那么表B的第一列新增行的数据等于表A的当前行
    End If
Next

Datatable("表B").Save  '保存表A