条件那里，不能有多余空格
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If Forms("工厂无损录入主界面").Opened Then
msgbox(1)
Dim xl As WinForm.RadioButton = Forms("工厂无损录入主界面").Controls("类别_下料")
If Forms("工厂无损录入主界面").Controls("类别_下料").Checked
msgbox(2)
trv.BuildTree("无损_检测部位接头形式","检测部位|接头形式", "适用类型 = '下料'", "序号 DESC")
ElseIf Forms("工厂无损录入主界面").Controls("类别_常规构件").Checked
msgbox(3)
trv.BuildTree("无损_检测部位接头形式","检测部位|接头形式", "适用类型 = ' 常规构件'", "序号 DESC")
ElseIf Forms("工厂无损录入主界面").Controls("类别_桥梁").Checked
msgbox(4)
trv.BuildTree("无损_检测部位接头形式","检测部位|接头形式", "适用类型 = '桥梁' ", "序号 DESC")
End If
End If
[此贴子已经被作者于2018/6/27 20:17:26编辑过]
加好友 
发短信
Post By：2018/6/27 20:17:00 [显示全部帖子]
