写在目录树窗口AfterLoad事件，根据条件进行筛选，为什么下拉目录树是空白的
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If Forms("工厂无损录入主界面").Opened Then
Dim xl As WinForm.RadioButton = Forms("工厂无损录入主界面").Controls("类别_下料")
If Forms("工厂无损录入主界面").Controls("类别_下料").Checked
trv.BuildTree("无损_检测部位接头形式","检测部位|接头形式", "适用类型 = '下料 '", "序号 DESC")
ElseIf Forms("工厂无损录入主界面").Controls("类别_常规构件").Checked
trv.BuildTree("无损_检测部位接头形式","检测部位|接头形式", "适用类型 = ' 常规构件 '", "序号 DESC")
ElseIf Forms("工厂无损录入主界面").Controls("类别_桥梁").Checked
trv.BuildTree("无损_检测部位接头形式","检测部位|接头形式", "适用类型 = '桥梁' ", "序号 DESC")
End If
End If
加好友 
发短信
Post By：2018/6/27 19:21:00 [只看该作者]
