怎么把A表中复选筐中选中的行数据添加加B表中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

根据以下代码自己改下吧。

这是我项目中用到的一个自定义函数。

'*************************************************

'* 指定源表列名和目标表列名后的表间数据复制 *

'*函数运行完成后会保存目标表,清空源表数据,请慎用!*

'*************************************************

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

Tables(Args(1)).Save

'DataTables(Args(0)).DataRows.Clear

主题：怎么把A表中复选筐中选中的行数据 添加加B表中