以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  行号列显示复选框  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=112976)
--  作者：有点蓝
--  发布时间：2018/1/5 23:12:00
--  
窗口表注意表名称：http://www.foxtable.com/webhelp/scr/1906.htm
--  作者：有点蓝
--  发布时间：2018/1/5 23:22:00
--  
项目AfterOpenProject
菜单按钮
窗口afterload
.......
需要在什么时候显示就在什么地方写代码
--  作者：有点蓝
--  发布时间：2018/1/6 8:40:00
--  
设置不了，自己加按钮做
--  作者：有点蓝
--  发布时间：2018/1/6 11:50:00
--  
Dim t As Table = Forms("另一个窗口").Controls("Table1").Table
For Each r As Row In Tables("员工").GetCheckedRows
    Dim r2 As Row  = t.AddNew
    r2("列1") = r("列1")
    r2("列3") = r("列3")
Next
--  作者：有点蓝
--  发布时间：2018/1/6 14:45:00
--  
代码没有问题，"出货信息"不能是模式窗口。不然就把代码改改放到窗口afterload事件
--  作者：有点甜
--  发布时间：2018/1/23 17:04:00
--  
如果提示【不存在xxx控件】说明你控件名称写错了，改一个名字。
--  作者：有点甜
--  发布时间：2018/1/23 17:18:00
--  

改成

 

Dim tab As WinForm.TabControl = Forms("出库信息").Controls("出库信息")
tab.TabPages(1).Visible = True
tab.SelectedPage= tab.TabPages(1)
--  作者：有点甜
--  发布时间：2018/1/23 17:38:00
--  
以下是引用nuoyan88在2018/1/23 17:25:00的发言：
必须要把那个窗口打开才行吗？老师
图片点击可在新窗口打开查看此主题相关图片如下：1.png

 

是的，必须在窗口打开的时候，才能引用窗口的控件

 

If Forms("出库信息").Opened Then
   
    Dim tab As WinForm.TabControl = Forms("出库信息").Controls("出库信息")
    tab.TabPages(1).Visible = True
    tab.SelectedPage= tab.TabPages(1)
End If