运行TextChanged事件,代码如下,第一个msgbox反馈为TRUE,第二个msgbox反馈为TRUE,第三个msgbox反馈为false,怎么会这样呀?搞半天了,检查不出什么问题
Dim tTrvCol As String = E.Sender.Text.Trim
If tTrvCol = "" Then
' e.Form.Controls("ChkShowTRV").Checked = False
Else
CreateMultiTreeV( tTrvCol,guTblInfo("窗口当前表")(e.Form.Name)("上当前表"),e.Form.Controls("TrVNavBar"))
' e.Form.Controls("ChkShowTRV").Checked = True ' False
End If
msgbox(tTrvCol <> "" )
Dim blVisible As Boolean = (tTrvCol.Trim <> "" AndAlso e.Form.Controls("ChkShowTRV").Checked )
e.Form.Controls("TrVNavBar").Visible = blVisible
msgbox( blVisible)
msgbox(e.Form.Controls("TrVNavBar").Visible)
e.Form.Controls("Panel1").Visible = (e.Form.Controls("TrVNavBar").Visible = False)