点击字节在缴费情况表能正常录入数据,在窗口中不能录入数据:
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim tr As Row
If e.Form.DropTable IsNot Nothing Then '如果下拉窗口是从表中打开
tr = e.Form.DropTable.Current '获取此表的当前行
Else '如果下拉窗口是通过DropdownBox打开
Dim nm As String = e.Form.DropDownBox.BindingField '获取绑定的字段
nm = nm.Split(".")(0) '获取绑定的表名
tr = Tables(nm).Current '获取此表的当前行
End If
If e.Form.DropTable IsNot Nothing Then
Select Case e.Form.DropTable.Name
Case "月租收费_Table1"
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 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
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
Case "临时收费录入_Table1"
If e.Node.Level = 0 Then '如果是顶层节点
Return '则返回
End If
Dim dr1 As DataRow = DataTables("车辆基本信息").Find("分类 = '" & Vals(0) & "' And 车牌号码 ='" & Vals(1) & "'")
If dr1 IsNot Nothing Then
tr("分类") = dr1("分类")
tr("亲属临时停车") = dr1("亲属临时停车")
tr("车牌号码") = dr1("车牌号码")
e.Form.DropDownBox.Value = tr("车牌号码")
e.Form.DropDownBox.CloseDropdown()
End If
Case "缴费情况"
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 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
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
If e.Node.Level = 0 Then '如果是顶层节点
Return '则返回
End If
Dim dr1 As DataRow = DataTables("车辆基本信息").Find("分类 = '" & Vals(0) & "' And 车牌号码 ='" & Vals(1) & "'")
If dr1 IsNot Nothing Then
tr("分类") = dr1("分类")
tr("亲属临时停车") = dr1("亲属临时停车")
tr("车牌号码") = dr1("车牌号码")
e.Form.DropDownBox.Value = tr("车牌号码")
e.Form.DropDownBox.CloseDropdown()
End If
End If
End Select
End If
[此贴子已经被作者于2021/3/4 13:30:28编辑过]