If e.Node.Level = 1 Then '如果单击的是第二层节点 Dim ps() As String = e.Node.FullPath.Split("\") Dim tr As Row = Tables("控件绑定的表名注意是不是窗口表").Current tr("原料类型") = ps(0) tr("原料货号") = ps(1) e.Form.DropDownBox.Value = ps(1) '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据. e.Form.DropDownBox.CloseDropdown() End If