主题：[求助]行切换时页面折叠

表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