表A_CurrentChanged
If e.Table.Current IsNot Nothing AndAlso Forms("44").Opened Then
Dim spl2 As WinForm.SplitContainer = e.Form.Controls("SplitContainer1") '父页面
Dim spl As WinForm.SplitContainer = e.Form.Controls("SplitContainer3") '子页面
Dim rw As Row = e.Table.Current
'Dim fhtml As String = rw("html_内容")
'Dim fweb As String = rw("Website")
If rw.IsNull("html_内容") Then
spl2 .Panel2.Collapsed = False '父页面
spl.Panel1.Collapsed = False '子页面
spl.Panel2.Collapsed = True '子页面
Dim pg As WinForm.TabPage
pg = Forms("44").Controls("TabControl1").TabPages(rw("页面"))
If pg IsNot Nothing Then
Forms("44").Controls("TabControl1").SelectedPage = pg
Else
Forms("44").Controls("TabControl1").SelectedPage= Forms("44").Controls("TabControl1").SelectedPage("国家")
End If
End If
If rw.IsNull("Website") Then
spl2 .Panel2.Collapsed = False '父页面
spl.Panel1.Collapsed = True '子页面
spl.Panel2.Collapsed = False '子页面
End If
If rw.IsNull("html_内容") = False And rw.IsNull("Website") = False Then
spl2 .Panel2.Collapsed = False'父页面
spl.Panel1.Collapsed = False '子页面
spl.Panel2.Collapsed = False '子页面
Dim pg As WinForm.TabPage
pg = Forms("44").Controls("TabControl1").TabPages(rw("页面"))
If pg IsNot Nothing Then
Forms("44").Controls("TabControl1").SelectedPage = pg
Else
Forms("44").Controls("TabControl1").SelectedPage= Forms("44").Controls("TabControl1").SelectedPage("国家")
End If
End If
If rw.IsNull("html_内容") And rw.IsNull("Website") Then
spl2 .Panel2.Collapsed = True
End If
End If
'Dim pg As WinForm.TabPage
'pg = Forms("窗口1").Controls("TabControl1").TabPages(1)
'pg.Visible = False
加好友 
发短信
Post By：2021/12/17 16:14:00 [只看该作者]
此主题相关图片如下：求助 根据 页面 列值 显示页签如彩色箭头.png