Foxtable(狐表)用户栏目专家坐堂 → 再请教表之间追加记录问题


  共有2339人关注过本帖树形打印复制链接

主题:再请教表之间追加记录问题

帅哥哟,离线,有人找我吗?
digger_deng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:133 积分:1453 威望:0 精华:0 注册:2015/6/15 14:05:00
再请教表之间追加记录问题  发帖心情 Post By: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
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:133 积分:1453 威望:0 精华:0 注册:2015/6/15 14:05:00
  发帖心情 Post By:2015/8/10 21:43:00 [只看该作者]

感谢回复

 回到顶部