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
以上命令：如果我的 tr("设备厂家") tr("设备名称") tr("设备型号") 都是控件，没有绑定任何表；我的命令该怎么改：
此主题相关图片如下：360截图20140715120359781.jpg
[此贴子已经被作者于2014-7-15 14:11:21编辑过]
加好友 
发短信
Post By：2014/7/15 12:05:00 [只看该作者]
