以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助],navbar的控件代码如何转到tabcontrol  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50975)

--  作者:czgtiger
--  发布时间:2014/5/16 9:38:00
--  [求助],navbar的控件代码如何转到tabcontrol

设计了一个界面,NAVBAR在左,tabcontrol在右,设计如下代码

Dim bar As WinForm.NavBar = e.sender

Select Case bar.SelectedPage.ButtonText
    Case "客户管理"
         Dim tab As winform.tabcontrol
         tab = e.Form.Controls("TabControl1")
         tab.SelectedIndex = 0
         MainTable = Tables("表A")
    Case "供应商管理"
         Dim tab As winform.tabcontrol
         tab = e.Form.Controls("TabControl1")
         tab.SelectedIndex = 1

end select

 

运行时出现如下问题:

 


此主题相关图片如下:1.png
按此在新窗口浏览图片

--  作者:czgtiger
--  发布时间:2014/5/16 9:39:00
--  

请问如何解决?请高手指点一下


--  作者:Bin
--  发布时间:2014/5/16 9:40:00
--  
你代码是放在什么事件? 如果是放在TabControl1的事件里

e.sender 就是 TabControl1

你用 Dim bar As WinForm.NavBar = e.sender  肯定会报错.

--  作者:czgtiger
--  发布时间:2014/5/16 9:43:00
--  

我的代码是放在 NAVBAR中的selectedindexchanged事件中的

 


--  作者:Bin
--  发布时间:2014/5/16 9:44:00
--  
那不应该,点击显示详细信息.看看错误提示.


建议您用这个方法:
http://www.foxtable.com/help/topics/1485.htm

先找出是哪一行出错,然后分析原因,搞不定,贴出代码,并告诉我们运行到哪一行出错,以及错误提示。或者例子发上来

--  作者:czgtiger
--  发布时间:2014/5/16 9:50:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


--  作者:czgtiger
--  发布时间:2014/5/16 9:55:00
--  

直接上例子,请直接修改


--  作者:czgtiger
--  发布时间:2014/5/16 10:14:00
--  
bin 总,请帮忙查看一下是哪里出了问题哦
--  作者:lsy
--  发布时间:2014/5/16 11:46:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb