专家坐堂-[求助]动态增加控件中一个奇怪的问题！Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]动态增加控件中一个奇怪的问题！  (http://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

不清楚什么原因~