全程代码参照说明书的“自行设计下拉目录树”部分。
问题见下面的GIF动画：
此主题相关图片如下：jdfw.gif
TreeView(目录树)的NodeMouseClick事件代码：
If e.Node.Level = 2 Then '如果单击的是第二层节点
Dim ps() As String = e.Node.FullPath.Split("\")
Dim tr As Row = Tables("资产数据库").Current
Dim dr As DataRow = DataTables("资产分类配置").Find("大类 = '" & ps(0) & "' And 小类 = '" & ps(1) & "' And 类型 = '" & ps(2) & "'")
If dr IsNot Nothing Then '如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
tr("大类") = dr("资产分类_大类")
tr("小类") = dr("资产分类_小类")
tr("类型") = dr("资产分类_类型")
e.Form.DropDownBox.Value = tr("类型") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
End If
e.Form.DropDownBox.CloseDropdown() '关闭下拉目录树
End If
例子：
谢谢大神指导！
[此贴子已经被作者于2015/4/20 15:58:33编辑过]
加好友 
发短信
Post By：2015/4/20 15:34:00 [显示全部帖子]
