Foxtable(狐表)用户栏目专家坐堂 → [求助][求助]子表项目编号没有时的判断求助


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

主题:[求助][求助]子表项目编号没有时的判断求助

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
[求助][求助]子表项目编号没有时的判断求助  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4627 积分:33767 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By: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("项目编号"))

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(y2287958)Dim lst As new List(of String)ls...  发帖心情 Post By:2018/11/15 18:59:00 [只看该作者]

谢了,够简洁,太牛了

 回到顶部