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

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

 

 

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

 

Dim dr As DataRow = e.Node.DataRow
Dim r As Row = Tables("合同台账").Current

If e.Node.Level = 0 Then
    e.Form.DropDownBox.Value = dr("合同类型名称")
Else If e.Node.Level = 1 Then
    r("合同类型") = dr("合同类型名称")
    r("一级合同类别") = dr("一级合同类别名称")
    e.Form.DropDownBox.Value = dr("合同类型名称")
Else If e.Node.Level = 2 Then
    r("合同类型") = dr("合同类型名称")
    r("一级合同类别") = dr("一级合同类别名称")
    r("二级合同类别") = dr("二级合同类别名称")
    e.Form.DropDownBox.Value = dr("合同类型名称")
Else If e.Node.Level = 3 Then
    r("合同类型") = dr("合同类型名称")
    r("一级合同类别") = dr("一级合同类别名称")
    r("二级合同类别") = dr("二级合同类别名称")
    r("三级合同类别") = dr("三级合同类别名称")
    e.Form.DropDownBox.Value = dr("合同类型名称")
End If

e.form.DropDownBox.CloseDropdown

非常感谢！我不是IT从业人员，每月月报需要很多数据，以前用透视表做，但还是不够方便。希望能做个简单的数据库解决统计问题，现看了一下使用手册，很多基本概念都还不太理解，以后有问题会经常请教。