|
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("设备型号")
Forms("xxx").Controls("yyy").Text = dr("设备厂家")
e.Form.DropDownBox.Value = tr("设备厂家") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
End If
e.Form.DropDownBox.CloseDropdown() '关闭下拉目录树
End If
|
加好友 
发短信
Post By：2014/7/15 14:20:00 [显示全部帖子]
