以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  再请教表之间追加记录问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72995)

--  作者:digger_deng
--  发布时间:2015/8/10 16:53:00
--  再请教表之间追加记录问题
例如 使用ShowCheckBox在表A中显示选择列,勾选后将选择后的记录追加到表B。条件参数不会写表达式?
代码如下:
Dim f As New Filler
f.SourceTable = DataTables("学习记录") \'指定数据来源
f.SourceCols = "姓名,序号" \'指定数据来源列
f.DataTable = DataTables("学习记录1") \'指定数据接收表
f.DataCols = "姓名,序号" \'指定数据接收列
f.filter = ???????怎么写表达式
f.Fill() \'填充数据

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150810165213.png
图片点击可在新窗口打开查看

--  作者:大红袍
--  发布时间:2015/8/10 16:55:00
--  
For Each r As Row In Tables("学习记录").GetCheckedRows
    Dim ndr As DataRow =  DataTables("学习记录1").AddNew
    ndr("姓名") = r("姓名")
    ndr("序号") = r("序号")
Next

--  作者:digger_deng
--  发布时间:2015/8/10 21:43:00
--  
感谢回复