老师，
'If e.Form.panel.Visible = True Then 这个去掉可以吗，这句是什么意思呢
我这边放放到自定义函数中，黄色的部分 和例子一样
Dim tab As WinForm.TabControl = args(0)
Dim dr As DataRow = args(1)
Dim e As object=args(2)
e.Form.StopRedraw
Dim dt As DataTable = dr.DataTable
Dim drs As List(of DataRow) = dt.Select("编码规则 like '" & dr("编码规则") & "%' and 编码级次 = '" & dr("编码级次")+1 & "'")
If drs.count > 0 Then
Dim ctab As WinForm.TabControl
ctab = tab.Form.CreateControl("tab_" & dr("编码规则"), ControlTypeEnum.tabcontrol)
ctab.Dock = 5
'ctab.ShowTabs=False
Dim panel As WinForm.panel
panel = tab.Form.CreateControl("pal_" & dr("编码规则"), ControlTypeEnum.panel)
panel.Dock = 5
panel.AddControl(ctab)
For Each cdr As DataRow In drs
ctab.TabPages.Add(cdr("编码规则"), cdr("编码名称")).Dock = 5
Functions.Execute("loop2", ctab, cdr,e)
ctab.TabPages(cdr("编码规则")).Dock = 5
Next
tab.TabPages(dr("编码规则")).AddControl(panel)
Else
'If e.Form.panel.Visible = True Then
e.Form.TimerEnabled = False
[此贴子已经被作者于2017/8/21 16:31:08编辑过]
加好友 
发短信
Post By：2017/8/21 12:57:00 [只看该作者]
