If e.Node.Name = DataTables("分类").DataRows(0)("分类") Then
If e.Node.Level = 3 Then '如果单击的是第二层节点
Dim tr As Row = Tables("缴费情况").Current
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
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
If e.Node.Level = 4 Then '如果单击的是第二层节点
Dim tr As Row = Tables("缴费情况").Current
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
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
If e.Node.Level = 5 Then '如果单击的是第二层节点
Dim tr As Row = Tables("缴费情况").Current
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
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
ElseIf e.Node.Name = DataTables("分类").DataRows(1)("分类") Then
If e.Node.Level = 3 Then '如果单击的是第二层节点
Dim tr As Row = Tables("缴费情况").Current
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
tr("分类") = dr("分类")
tr("车牌号码") = dr("车牌号码")
tr("备注") = dr("备注")
e.Form.DropDownBox.Value = tr("车牌号码")
e.Form.DropDownBox.CloseDropdown()
End If
End If
加好友 
发短信
Post By：2021/3/1 14:32:00 [只看该作者]
此主题相关图片如下：3010.png
