以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助][求助]子表项目编号没有时的判断求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127520)
--  作者：湛江智
--  发布时间：2018/11/15 18:41:00
--  [求助][求助]子表项目编号没有时的判断求助

表A的子表，表B,通过 项目编号 列关联

 

表A CurrentChanged   好像可以了

 

Dim r As Row = Tables("表A").Current
        If DataTables("表B").Find("项目编号= \'" & r("项目编号")  & "\'") IsNot Nothing
Forms("窗口1").Controls("Label1").Visible = False
Else
Forms("窗口1").Controls("Label1").Visible = True
End If

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:子表项目编号为空时窗口控件隐藏.foxdb

加密狗不能升级了，高于2018-07-09版本打不开，不会意思哈


 

[此贴子已经被作者于2018/11/15 18:54:32编辑过]
--  作者：y2287958
--  发布时间：2018/11/15 18:53:00
--  
Dim lst As new List(of String)
lst = DataTables("表B").GetValues("项目编号")
Forms("窗口1").Controls("Label1").Visible = lst.Contains(e.Table.Current("项目编号"))
--  作者：湛江智
--  发布时间：2018/11/15 18:59:00
--  回复：（y2287958）Dim lst As new List(of String)ls...
谢了，够简洁，太牛了