主题：[求助]窗口上的Table

老师，

 

Dim e As object =args(0)
Dim ymtype As String=args(1)
Dim pnl As object=args(2)
Dim ymgz As String=pnl.name.split("_")(2)
Dim ctab As WinForm.TabControl=pnl.Form.CreateControl("tbl_nb_" & ymgz, ControlTypeEnum.tabcontrol)
ctab.TabPages.Add("pgnb_tab_" & ymgz,ymgz)
ctab.TabPages.Add("pgnb_lsw_" & ymgz,ymgz)
ctab.Dock = 5
ctab.ShowTabs =False
pnl.Form.AddControl(ctab)
pnl.Form.Controls("tbl_nb_" & ymgz).Basecontrol.borderstyle = Windows.Forms.FormBorderStyle.None'去掉边框
pnl.AddControl(ctab)
If pnl.Form.Controls.contains("Tab_" & ymgz) = False Then
    Dim str As String=Functions.Execute("za_nb_sqlselect",ymgz)
    Dim tbl As WinForm.Table = pnl.Form.CreateSQLTable("tab_" & ymgz," Select * fr om {za_setoppage} where 1=2", sjy)
tbl.Visible=False
    tbl.Dock = 5
    Dim pg As WinForm.TabPage=ctab.TabPages("pgnb_tab_" & ymgz)
    'pnl.Form.AddControl(tbl)
    pg.AddControl(tbl)
End If

 

导致下面的情况出现 左上角  闪动一个控件 然后消失了，应该是个Table，如何能改善呢？

 

 

此主题相关图片如下：qq图片20171101175033.png

 你单独测试添加table，是否也有类似的问题。

 

 具体的实例发上来。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目17 - 副本.table

一般点击第一次时出现，然后电脑内存小的就比较卡，比较明显。

 

此主题相关图片如下：qq图片20171102180228.png

    tbl.visible = False
    Dim pg As WinForm.TabPage=ctab.TabPages("pgnb_tab_" & ymgz)
    pnl.Form.AddControl(tbl)
    pg.AddControl(tbl)
    tbl.visible = True