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

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