以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  从表记录自动过滤  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103127)
--  作者：sysckj
--  发布时间：2017/6/30 22:11:00
--  从表记录自动过滤
当主表（表A)的复选框被选中后，从表(表B)的记录自动过滤为所有主表被选中的记录相关联的记录。假如关联字段为：编号  
--  作者：有点蓝
--  发布时间：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
--  发布时间：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编辑过]
--  作者：有点蓝
--  发布时间：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