根据以下代码自己改下吧。这是我项目中用到的一个自定义函数。
'*************************************************
'* 指定源表列名和目标表列名后的表间数据复制 *
'*函数运行完成后会保存目标表,清空源表数据,请慎用!*
'*************************************************
Dim y_tbl_Name As String = Args(0) '源表名称
Dim m_tbl_Name As String = Args(1) '目标表名称
Dim y_clnames() As String = Args(2) '源表字段名称数组
Dim m_clnames() As String = Args(3) '目标表字段名称数组
For Each r As Row In Tables(Args(0)).Rows
Dim newr As Row = Tables(Args(1)).AddNew
For y As Integer = 0 To y_clnames.Length -1 ' Each clname As String In Args(2)
newr(Args(3)(y)) = r(Args(2)(y))
y = y + 1
Next
Next
Tables(Args(1)).Save
'DataTables(Args(0)).DataRows.Clear
加好友 
发短信
Post By：2015/3/6 13:30:00 [只看该作者]
