以文本方式查看主题

-  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=97835)
--  作者：ok660077
--  发布时间：2017/3/19 16:31:00
--  跨表筛选赋值问题

我有两个表，一个表A，一个表B，都有一个字符列：id，在表A还有一个逻辑列：ex，我想实现如果表B的 id 在表A中存在，则ex列的值为true，否则为false，我在表A的datachanged的表事件里写了下面的代码：

Dim ids As List(of String)
ids =DataTables("表B").getvalues("id")
e.DataRow("ex") = iif(ids.contains(e.DataRow("id")),1,0)

重置列之后程序就自动关闭了，为什么呢？

请高手指教，谢谢！！！！！

 

[此贴子已经被作者于2017/3/19 16:37:04编辑过]
--  作者：wyz20130512
--  发布时间：2017/3/19 20:21:00
--  
Select Case e.DataCol.Name
    Case "ID"
        Dim dr As DataRow = DataTables("表B").Find("ID = \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then
            e.DataRow("ex") = True
        End If
End Select
--  作者：有点蓝
--  发布时间：2017/3/20 9:20:00
--  

参考：http://www.foxtable.com/webhelp/scr/1522.htm