Foxtable(狐表)用户栏目专家坐堂 → [求助]把复选框都选中的行都加载进来代码怎么写?


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

主题:[求助]把复选框都选中的行都加载进来代码怎么写?

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


加好友 发短信
等级:五尾狐 帖子:1165 积分:8129 威望:0 精华:0 注册:2015/3/30 10:44:00
[求助]把复选框都选中的行都加载进来代码怎么写?  发帖心情 Post By:2015/10/11 21:21:00 [只看该作者]

DataTables("商务下单查询表").LoadFilter = "Tables("商务下单查询表").getcheckedrows = true"
DataTables("商务下单查询表").Load

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/11 21:33:00 [只看该作者]


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


加好友 发短信
等级:五尾狐 帖子:1165 积分:8129 威望:0 精华:0 注册:2015/3/30 10:44:00
  发帖心情 Post By:2015/10/12 11:28:00 [只看该作者]

这样?
For Each r As Row In Tables("商务下单查询表").GetCheckedRows
    
        r.load
    
Next

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/12 11:32:00 [只看该作者]

你要做什么功能,重新load选中的行?是的话就3楼的代码。

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


加好友 发短信
等级:五尾狐 帖子:1165 积分:8129 威望:0 精华:0 注册:2015/3/30 10:44:00
  发帖心情 Post By:2015/10/12 11:33:00 [只看该作者]

就实现:筛选出复选框已经选中的行。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/12 11:36:00 [只看该作者]

Dim idx As String = ""
For Each r As Row In Tables("商务下单查询表").GetCheckedRows
    idx &= "'" & r("_Identify") & "',"
Next
Tables("商务下单查询表").filter = "_Identify in (" & idx.trim(",") & ")"

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


加好友 发短信
等级:五尾狐 帖子:1165 积分:8129 威望:0 精华:0 注册:2015/3/30 10:44:00
  发帖心情 Post By:2015/10/12 11:44:00 [只看该作者]

.NET Framework 版本:2.0.50727.8009
Foxtable 版本:2014.11.11.1
错误所在事件:
详细错误信息:
语法错误: IN 关键字后面必须是由逗号分隔的非空表达式列表,并且必须用括号括起来。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/12 12:08:00 [只看该作者]

Dim idx As String = "-1,"
For Each r As Row In Tables("商务下单查询表").GetCheckedRows
    idx &= r("_Identify") ","
Next
Tables("商务下单查询表").filter = "_Identify in (" & idx.trim(",") & ")"

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


加好友 发短信
等级:五尾狐 帖子:1165 积分:8129 威望:0 精华:0 注册:2015/3/30 10:44:00
  发帖心情 Post By:2015/10/12 12:28:00 [只看该作者]

提示这句有问题,应为语句结束
idx &= r("_Identify") ","------另外这句代码是什么意思?干了什么功能。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/12 14:29:00 [只看该作者]

idx &= r("_Identify") & ","

 回到顶部