主题：[求助]下拉菜单层级不同时的输入

点击有最后层级的数据时，输入正确（如左图），但点击只有第二层级的数据时，报错（如右图，点击的是“总包”）

 

 

TreeView的NodeMouseClick事件代码如下：

Dim Vals() As String = e.Node.FullPath.Split("\")

Dim Filter As String = "[合同类型名称] = '" & Vals(0) & "' And [一级合同类别名称] = '" & Vals(1) & "' And [二级合同类别名称] = '" & Vals(2) & "' And [三级合同类别名称] = '" & Vals(3) & "'"

Dim dr As DataRow = DataTables("合同类别").Find(Filter)

Dim r As Row = Tables("合同台账").Current

 

If dr.IsNull("二级合同类别名称") Then

    r("合同类型") = dr("合同类型名称")

    r("一级合同类别") = dr("一级合同类别名称")

    e.Form.DropDownBox.Value = r("合同类型")

Else

    If dr.IsNull("三级合同类别名称") Then

        r("合同类型") = dr("合同类型名称")

        r("一级合同类别") = dr("一级合同类别名称")

        r("二级合同类别") = dr("二级合同类别名称")

        e.Form.DropDownBox.Value = r("合同类型")

    End If

    r("合同类型") = dr("合同类型名称")

    r("一级合同类别") = dr("一级合同类别名称")

    r("二级合同类别") = dr("二级合同类别名称")

    r("三级合同类别") = dr("三级合同类别名称")

    e.Form.DropDownBox.Value = r("合同类型")

End If

e.Form.DropDownBox.CloseDropdown()

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:工程项目数据管理.table