If e.Node.Level = 0 Then '如果是顶层节点
Return '则返回
End If
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim Filter As String = "[省区] = '" & Vals(0) & "' And [市县] = '" & Vals(1) & "' And [乡镇] = '" & Vals(2) & "'And [街道] = '" & Vals(3) & "' "
Dim dr As DataRow = DataTables("行政区域").Find(Filter)
Dim r As Row = Tables("住址").Current
r("省区") = dr("省区")
r("市县") = dr("市县")
r("乡镇") = dr("乡镇")
r("街道") = dr("街道")
e.Form.Close()
用窗口选择行政地区，通过双击输入单元格中，但是行政区域表中有些市县没有下级乡镇和街道，通过双击输入会报错，如果没有下级乡镇和街道怎么让它自动输入空值？
[此贴子已经被作者于2022/4/25 10:39:10编辑过]
加好友 
发短信
Post By：2022/4/25 10:37:00 [显示全部帖子]
Post By：2022/4/25 11:42:00 [显示全部帖子]
