Dim nma() As String = {"A","B","C","D","E"} 'A表 数据来源列 Dim nmb() As String = {"A","B","C","D","E"} 'B表 数据接收列 For J As Integer = 0 To Tables("A表").Rows.Count-1 Tables("A表").Position=J Dim dr As DataRow = DataTables("B表").AddNew For i As Integer = 0 To nma.Length - 1 dr(nmb(i)) = Tables("A表").Current(nma(i)) Next Next DataTables("B表").Save
加好友 
发短信
Post By：2013/10/25 0:03:00 [显示全部帖子]
