以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  根据城市或乡镇自动填写省份  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177985)
--  作者：zlyuiop
--  发布时间：2022/6/13 20:43:00
--  根据城市或乡镇自动填写省份
根据城市或乡镇自动填写省份
表中有两列，一个是城市或乡镇的，另一个是省份的，在填写城市这一列后，省份列能自动填写相应的省份名称。
如：输入城市武汉，省份自动填写上湖北
--  作者：zlyuiop
--  发布时间：2022/6/13 20:53:00
--  
不用目录树，在详细地址里怎么提取省份
--  作者：有点蓝
--  发布时间：2022/6/13 21:50:00
--  
参考：http://www.foxtable.com/webhelp/topics/1451.htm，根据到行政区域表，根据城市查省份即可

If e.DataCol.Name = "城市" Then 
    If e.NewValue Isnot Nothing Then 
        Dim dr As DataRow
        dr = DataTables("行政区域").Find("[城市] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then
            e.DataRow("省份") = dr("省份")
        End If
    End If
End If