完整的代码:
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
点要符合条件的最后一层是可以录入数据的,但点
If e.Node.Level = 0 Or e.Node.Level = 1 Or e.Node.Level = 2 Or e.Node.Level = 3 Then '如果是顶层节点
Return '则返回
End If
这条件之间的层报错!
此主题相关图片如下:4.png
[此贴子已经被作者于2021/3/3 11:05:20编辑过]