以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]动态增加控件中 一个奇怪的问题！  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=17730)
--  作者：gaoyong30000
--  发布时间：2012/3/22 17:02:00
--  [求助]动态增加控件中 一个奇怪的问题！

动态增加控件  这样写就会出错！

Dim tab1 As WinForm.TabControl
tab1 = e.form.CreateControl("tabcontrol1", ControlTypeEnum.TabControl)
If Functions.Execute("shouquan导航分组","综合管理") Then
    tab1.TabPages.Add("综合管理","综合管理")
    tab1.tabpages("综合管理").Image = GetImage("2402 34x34.ico")
ElseIf Functions.Execute("shouquan导航分组","销售管理") Then
    tab1.TabPages.Add("销售管理","销售管理")
    tab1.tabpages("销售管理").Image = GetImage("2401 34x34.ico")
ElseIf Functions.Execute("shouquan导航分组","ERP项目管理") Then
    tab1.TabPages.Add("ERP项目管理","ERP项目管理")
    tab1.tabpages("ERP项目管理").Image = GetImage("项目管理 34x34.png")
End If

 


图片点击可在新窗口打开查看此主题相关图片如下：未命名1.jpg
图片点击可在新窗口打开查看

 

 下面这样写就OK！！

Dim tab1 As WinForm.TabControl
tab1 = e.form.CreateControl("tabcontrol1", ControlTypeEnum.TabControl)
If Functions.Execute("shouquan导航分组","综合管理") Then
    tab1.TabPages.Add("综合管理","综合管理")
    tab1.tabpages("综合管理").Image = GetImage("2402 34x34.ico")
End If
If Functions.Execute("shouquan导航分组","销售管理") Then
    tab1.TabPages.Add("销售管理","销售管理")
    tab1.tabpages("销售管理").Image = GetImage("2401 34x34.ico")
End If
If Functions.Execute("shouquan导航分组","ERP项目管理") Then
    tab1.TabPages.Add("ERP项目管理","ERP项目管理")
    tab1.tabpages("ERP项目管理").Image = GetImage("项目管理 34x34.png")
End If

 

求解~~~~~~~~~
--  作者：狐狸爸爸
--  发布时间：2012/3/22 17:25:00
--  

http://www.foxtable.com/help/topics/1485.htm

 
--  作者：gaoyong30000
--  发布时间：2012/3/22 18:42:00
--  

调试了啊 从这里开始出问题

 

Dim tab1 As WinForm.TabControl
tab1 = e.form.CreateControl("tabcontrol1", ControlTypeEnum.TabControl)
If Functions.Execute("shouquan导航分组","综合管理") Then
    tab1.TabPages.Add("综合管理","综合管理")
    tab1.tabpages("综合管理").Image = GetImage("2402 34x34.ico")
ElseIf Functions.Execute("shouquan导航分组","销售管理") Then
    tab1.TabPages.Add("销售管理","销售管理")
    tab1.tabpages("销售管理").Image = GetImage("2401 34x34.ico")
ElseIf Functions.Execute("shouquan导航分组","ERP项目管理") Then
    tab1.TabPages.Add("ERP项目管理","ERP项目管理")
    tab1.tabpages("ERP项目管理").Image = GetImage("项目管理 34x34.png")
End If

不清楚什么原因~