以文本方式查看主题

-  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