For Each dr1 As Row In Tables("表A").Rows Dim dr As Row =Tables("表b").Rows.AddNew dr("第一列")=dr1("第一列") dr("第二列")=dr1("第二列") dr("第三列")=dr1("第三列")Next
DataTables("表A").DataRows.Clear()
加好友 
发短信
Post By：2012/7/5 9:58:00 [只看该作者]
