以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]隐藏不显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135243)

--  作者:2474842866
--  发布时间:2019/5/21 16:56:00
--  [求助]隐藏不显示
我在新建窗体中设置分页集合,在分页集合的第二个标签内加入了一张交叉统计表,也设置了查询条件,现在我希望在未输入查询条件和执行查询命令时,将此表隐藏,在单击生成这个按钮时,表生成的同时显示出来,
已经在afterload事件设置了e.form.controls("table1").visible = false,
也在item click时间中设置了,但是btn1那条命令却不执行,事件中其他命令都正常,代码如下
Select Case e.StripItem.name
    Case "首页"
        e.Form.Controls("tbx.1").tabpages(0).visible = True
        e.Form.Controls("tbx.1").Selectedindex = 0
    Case "销量走势"
        e.Form.Controls("tbx.1").tabpages(1).visible = True
        e.Form.Controls("tbx.1").Selectedindex = 1
    Case "警戒库存"
        e.Form.Controls("tbx.1").tabpages(2).visible = True
        e.Form.Controls("tbx.1").Selectedindex = 2
    Case "版权声明"
        MessageBox.Show("本人软件开发,拥有所有权利","版权声明")
    Case "btn1","btn2"
          e.Form.Controls("tb1.2.1").Visible = True
End Select

我这个btn1是在一个分页集合里面的,名称是对的,,表被隐藏了,单击按钮不执行,请问这是什么原因?

--  作者:有点甜
--  发布时间:2019/5/21 17:14:00
--  

改成这样,弹出什么?

 

msgbox(e.StripItem.name)

Select Case e.StripItem.name
    Case "首页"
        e.Form.Controls("tbx.1").tabpages(0).visible = True
        e.Form.Controls("tbx.1").Selectedindex = 0
    Case "销量走势"
        e.Form.Controls("tbx.1").tabpages(1).visible = True
        e.Form.Controls("tbx.1").Selectedindex = 1
    Case "警戒库存"
        e.Form.Controls("tbx.1").tabpages(2).visible = True
        e.Form.Controls("tbx.1").Selectedindex = 2
    Case "版权声明"
        MessageBox.Show("本人软件开发,拥有所有权利","版权声明")
    Case "btn1","btn2"
msgbox(123)
          e.Form.Controls("tb1.2.1").Visible = True
End Select

--  作者:2474842866
--  发布时间:2019/5/21 17:51:00
--  
弹出来销量走势
--  作者:2474842866
--  发布时间:2019/5/21 17:53:00
--  
我的是分页集合,点击销量走势按钮触发表所在分页,然后希望点一下分页上的按钮,表从隐藏模式显示出来
--  作者:有点甜
--  发布时间:2019/5/21 17:57:00
--  

 

那,请把代码写到具体的按钮的click事件,或者写到窗口的click事件。

 

 


--  作者:2474842866
--  发布时间:2019/5/21 18:09:00
--  
好了,感谢,在窗口click事件添加如下代码
If e.Sender.name ="btn1" Then 
    e.Form.Controls("tb1.2.1").Visible = True
End If
已经成功了