主题：[求助] 帮忙修改命令

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