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