主题：目录树

完整的代码：

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

Dim tr As Row = Tables("缴费情况").Current

If Vals(0) = DataTables("分类").DataRows(0)("分类") Then

    Dim drs As List(Of DataRow) = DataTables("车辆基本信息").Select("分类 = '" & Vals(0) & "' And 住址_巷 ='" & Vals(1) & "' And 住址_号 ='" & Vals(2) & "'And 住址_房 ='" & Vals(3) & "'")

    For Each dr As DataRow In drs

        If dr IsNot Nothing Then

            If e.Node.Level = 0 Or e.Node.Level = 1 Or e.Node.Level = 2 Or e.Node.Level = 3 Then '如果是顶层节点

                Return '则返回

            End If

            tr("分类") = dr("分类")

            tr("住址_巷") = dr("住址_巷")

            tr("住址_号") = dr("住址_号")

            tr("住址_房") = dr("住址_房")

            tr("姓名") = dr("姓名")

            tr("车牌号码") = dr("车牌号码")

            tr("固定电话") = dr("固定电话")

            tr("手机号码") = dr("手机号码")

            tr("备注") = dr("备注")

            e.Form.DropDownBox.Value = tr("车牌号码")

            e.Form.DropDownBox.CloseDropdown()

        End If

    Next

ElseIf Vals(0) = DataTables("分类").DataRows(1)("分类") Then

    Dim dr1 As DataRow = DataTables("车辆基本信息").Find("分类 = '" & Vals(0) & "' And 车牌号码 ='" & Vals(1) & "'")

    If dr1 IsNot Nothing Then

        If e.Node.Level = 0 Then '如果是顶层节点

            Return '则返回

        End If

        tr("分类") = dr1("分类")

        tr("车牌号码") = dr1("车牌号码")

        e.Form.DropDownBox.Value = tr("车牌号码")

        e.Form.DropDownBox.CloseDropdown()

    End If

End If

点要符合条件的最后一层是可以录入数据的，但点

这条件之间的层报错！

此主题相关图片如下：4.png