主题：[求助]为何我这代码执行后 tabControl 里面什么都没有，提示框显示都建立了，外面循环的页面都建立了，里面添加的控件都没有

 Dim l As  List(of String) = Functions.Execute("返回表某一列数组","单位类型表","单位类型")
Dim gl As  List(of String) = Functions.Execute("返回表某一列数组","人员岗位表","岗位" )
Dim tab As WinForm.TabControl = e.Form.Controls("tab_单位类型")
tab.TabPages.Clear  '清空
Dim pan As WinForm.Panel
Dim lab As WinForm.Label

Dim temp_int As Integer = 0
For Each s As String In l
    tab.TabPages.Add(s,s)
    For Each ss As String In gl
        If ss.Contains( s )            
            pan = e.Form.CreateControl("pan_"+ss,ControlTypeEnum.Panel)
            pan.Top = 25
            pan.Height = 25 * temp_int
            pan.Width = tab.Width - 10
            pan.Left = 5    
            pan.BorderStyle =BorderStyle.FixedSingle
            pan.TopMost = True
            lab = e.Form.CreateControl("lab_"+ss,ControlTypeEnum.Label)            
            lab.Height = 21            
            lab.Left = 0
            lab.Top = 2
            lab.Text = ss

            pan.AddControl(lab)
            tab.TabPages(s).AddControl(pan)
            MessageBox.Show(  lab.Text   )
        End If
    Next    
Next

 里面的，你添加pan的时候，每一个都添加在同一个位置了，可能看起来像没有添加。

 

            pan.Top = 25
            pan.Height = 25 * temp_int
            pan.Width = tab.Width - 10
            pan.Left = 5 

 

 哎呀 。。。又是 逻辑问题 。。找半天 没发现