老师 好想调整下拉窗口，红色代码，没有效果，请教！
Dim txt1 As String = Forms("接收").controls("ComboBox-数据来源").Text
Dim txt2 As String = Forms("接收").controls("ComboBox-来源名称").Text
Dim txt3 As String = e.Form.DropDownBox.Text
Dim t As Table = Forms("当前节点下拉窗口").controls("Table1").Table
t.Filter = "[Class] = '数据' and [Scene] ='" & txt1 & "' And [Cont1] = '" & txt2 & "'"
Select Case txt1
Case "A"
Forms("当前节点下拉窗口").Width = 100
t.SetColVisibleWidth("Cont3|100")
Case "B"
Forms("当前节点下拉窗口").Width = 180
t.SetColVisibleWidth("Cont2|120|Cont3|60")
End Select
加好友 
发短信
Post By：2021/9/28 10:55:00 [只看该作者]
