这样写能录入一行,之后就报错不行了!
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim tr As Row = Tables("缴费情况").Current
If Vals(0) = DataTables("分类").DataRows(0)("分类") 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
Dim dr As DataRow = DataTables("车辆基本信息").Find("分类 = '" & Vals(0) & "' And 住址_巷 ='" & Vals(1) & "' And 住址_号 ='" & Vals(2) & "'And 住址_房 ='" & Vals(3) & "'")
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()
ElseIf Vals(0) = DataTables("分类").DataRows(1)("分类") Then
If e.Node.Level = 0 Or e.Node.Level = 1 Or e.Node.Level = 2 Then '如果是顶层节点
Return '则返回
End If
Dim dr1 As DataRow = DataTables("车辆基本信息").Find("分类 = '" & Vals(0) & "'And Year[日期] ='" & Vals(1) & "' And Month[日期] ='" & Vals(2) & "'And 车牌号码 ='" & Vals(3) & "'")
tr("分类") = dr1("分类")
tr("车牌号码") = dr1("车牌号码")
tr("备注") = dr1("备注")
e.Form.DropDownBox.Value = tr("车牌号码")
e.Form.DropDownBox.CloseDropdown()
End If
[此贴子已经被作者于2021/3/2 22:30:45编辑过]