专家坐堂-怎么把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