Dim sCols() As String = {"第一列", "第二列", "第三列"}Dim dCols() As String = {"列1", "列2", "列3"}
Dim nr As DataRow = DataTables("表B").AddNew()For i As Integer =0 To sCols.Length -1 nr(dCols(i)) = Tables("表A").Current(sCols(i))Next
Tables("表A").Current.Delete
加好友 
发短信
Post By：2015/6/28 15:24:00 [显示全部帖子]
