以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 隐藏 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174050) |
-- 作者:塔山 -- 发布时间:2021/12/29 10:48:00 -- 隐藏 老师我想问一下我做了个按钮是隐藏表的e.form.Controls("Table8").Visible = False,正常来说是两个按钮一个是false 一个是true,但是能不能做成按钮判断他是否隐藏,如果是,就显示,否就隐藏呢 |
-- 作者:有点蓝 -- 发布时间:2021/12/29 10:53:00 -- e.form.Controls("Table8").Visible = not e.form.Controls("Table8").Visible |
-- 作者:塔山 -- 发布时间:2021/12/29 11:18:00 -- 十分感谢,老师还有一个小小的问题就是我的table_2跟table_3是关联的是单号,我table_2的DoubleClick事件是e.Cancel=True Forms("录入窗口").open(),我table_3能不能设置DoubleClick也是这样,然后点击对应的单号,就显示table_2父表的信息呢
|
-- 作者:有点蓝 -- 发布时间:2021/12/29 11:23:00 -- 做联动,参考:http://www.foxtable.com/webhelp/topics/2631.htm |
-- 作者:塔山 -- 发布时间:2021/12/29 15:28:00 -- If e.Table.Current Is Nothing Then \'如果Current为Nothing Return \'则返回 End If Dim dr As DataRow = e.Table.Current.DataRow Dim wz As Integer = Tables("Table_2").FindRow(dr) If wz >=0 Then Tables("Table_3").Position = wz End If 老师现在是可以点击table可以打开录入窗口但是点击table_3的单号,录入窗口显示的不是该单号
|
-- 作者:有点蓝 -- 发布时间:2021/12/29 15:34:00 -- Tables("Table_2").Position = wz |