主题：[求助]

类似这样写代码

 

Dim Filter As String 

Select Case e.Node.Level

    Case 0

        filter = "[费用类型] = '" & Vals(0) & "'"

    Case 1

        filter = "[费用类型] = '" & Vals(0) & "' And [一级费用类别] = '" & Vals(1) & "'"

End Select

 

Dim dr As DataRow = DataTables("费用类别").Find(Filter)

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

Dim r As Row = Tables("费用支付台账").Current

If e.Node.Level = 0 Then
   
    Return
   
Else If e.Node.Level = 1 Then
   
    Return
   
Else If e.Node.Level = 2 Then
   
    r("费用类型") = vars(0)
   
    r("一级费用类别") = vars(1)
   
    r("二级费用类别") = vars(2)
   
    e.Form.DropDownBox.Value = vars(2)
   
Else If e.Node.Level = 3 Then
   
    r("费用类型") = vars(0)
   
    r("一级费用类别") = vars(1)
   
    r("二级费用类别") = vars(2)
   
    r("三级费用类别") = vars(3)
   
    e.Form.DropDownBox.Value = vars(3)
   
Else If e.Node.Level = 4 Then
   
    r("费用类型") = vars(0)
   
    r("一级费用类别") = vars(1)
   
    r("二级费用类别") = vars(2)
   
    r("三级费用类别") = vars(3)
   
    r("四级费用类别") = vars(4)
   
    e.Form.DropDownBox.Value = vars(4)
   
End If

e.form.DropDownBox.CloseDropdown