Foxtable(狐表)用户栏目专家坐堂 → 从表记录自动过滤


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

主题:从表记录自动过滤

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


加好友 发短信
等级:幼狐 帖子:125 积分:1545 威望:0 精华:0 注册:2014/6/9 14:21:00
从表记录自动过滤  发帖心情 Post By:2017/6/30 22:11:00 [只看该作者]

当主表(表A)的复选框被选中后,从表(表B)的记录自动过滤为所有主表被选中的记录相关联的记录。假如关联字段为:编号  



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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/6/30 22:39:00 [只看该作者]

Dim rs As List(of Row)  = e.Table.GetCheckedRows
Dim filter As String = "('"
For Each r As Row In rs
    filter &= r("编号") & "','"
Next

filter &= "')"
Tables("表B").Filter = "编号 in " & filter

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


加好友 发短信
等级:幼狐 帖子:125 积分:1545 威望:0 精华:0 注册:2014/6/9 14:21:00
  发帖心情 Post By:2017/7/1 11:19:00 [只看该作者]

 

Dim rs As List(of Row) = e.Table.GetCheckedRows
Dim filter As String = "('"
For Each r As Row In rs
    filter &= r("billnumberid") & "','"
Next


filter &= "')"
Tables("vindexbill").Filter = "billnumberid in " & filter

 

 

运行后出现这个错误提示

 

.NET Framework 版本:2.0.50727.8669
Foxtable 版本:2017.3.18.1
错误所在事件:
详细错误信息:
无法在 System.Int32 和 System.String 上执行“=”操作。

 

 

[此贴子已经被作者于2017/7/1 11:23:02编辑过]

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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/7/1 11:44:00 [只看该作者]

列是数值型的这样用,去掉条件里的订单引号

Dim rs As List(of Row) = e.Table.GetCheckedRows
Dim filter As String = "("
For Each r As Row In rs
    filter &= r("billnumberid") & ","
Next


filter &= ")"
Tables("vindexbill").Filter = "billnumberid in " & filter


 回到顶部