我有一个录入窗口如下图：使用同一个DropDownForm窗口；第一行可以正常录入、第二行 --- 第六行 就没法录入了、我的命令该怎么改？
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 '如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
Forms("业务维护录入窗口").Controls("机房名称1").Text = dr("机房名称")
Forms("业务维护录入窗口").Controls("设备名称型号1").Text = dr("设备名称型号")
Forms("业务维护录入窗口").Controls("设备槽位端口1").Text = dr("设备槽位端口")
e.Form.DropDownBox.Value = dr("机房名称") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
End If
e.Form.DropDownBox.CloseDropdown() '关闭下拉目录树
End If
此主题相关图片如下：360截图20140829175244488.jpg
此主题相关图片如下：360截图20140829175403738.jpg
加好友 
发短信
Post By：2014/8/29 17:57:00 [只看该作者]
