展开查看
以下是引用RENHQ在2019-05-17 11:47:24的发言 >3楼:
画面名称那个线set一下,挪到if外面吧
Sub NodeClick(Byval Item, Byref Node)
Set MyObj = ScreenItems("Tree")
Set curNode = MyObj.SelectedItem
Set picWind = ScreenItems("画面窗口1")
If curNode.Key = "双流" Then
set picWind.ScreenName="画面.pdl"
Elseif curNode.Key = "四川" Then
set picWind.ScreenName="画面1.pdl"
End If
End Sub