If e.Node.Level = 4 Then '如果单击的是第二层节点
Dim ps() As String = e.Node.FullPath.Split("\")
Dim tr As Row = Tables("员工登记表").Current
Dim dr As DataRow = DataTables("行政区域").Find("省辖市 = '" & ps(0) & "' And 地级市 = '" & ps(1) & "' And 区县市 = '" & ps(2) & "'And 街道 = '" & ps(3) & "'And 社区居委会 = '" & ps(4) & "'")
If dr IsNot Nothing Then '如果在行政区域表找到对应的行,则将此行的值写入通讯录表的当前行.
tr("个人基本资料_省辖市") = dr("省辖市")
tr("个人基本资料_地级市") = dr("地级市")
tr("个人基本资料_区县市") = dr("区县市")
tr("个人基本资料_街道") = dr("街道")
tr("个人基本资料_家庭地址") = dr("社区居委会")
tr("个人基本资料_区号") = dr("区号")
tr("个人基本资料_邮编") = dr("邮编")
e.Form.DropDownBox.Value = tr("个人基本资料_家庭地址")
End If
e.Form.DropDownBox.CloseDropdown()
End If
老师，我用红色标出的最后一个节点在窗口中不显示
[此贴子已经被作者于2016/7/1 10:30:35编辑过]
加好友 
发短信
Post By：2016/7/1 10:21:00 [只看该作者]
