以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]文本框  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187327)

--  作者:江南小镇
--  发布时间:2023/7/10 9:50:00
--  [求助]文本框
老师好
    当身份证前六位控件输入数字后下面三个文本框分别对应自动输入
    比如:110101(身份证前六位)
    11文本框1输入北京
    01文本框2输入市辖区
    01文本框3输入东城区

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:有点蓝
--  发布时间:2023/7/10 10:03:00
--  
怎么知道11文本框1一定是输入北京,01文本框2一定是输入市辖区?根据什么规则判断?
--  作者:江南小镇
--  发布时间:2023/7/10 12:17:00
--  
老师
     根据"身份证地区编码”表 前2位是直辖市、省的编码,第3、4位是市辖区编码,第5、6位是区县编码。文本框一填写身份证前面6位数,文本框2根据地区编码表的身份证前六位的列来判断11是名称列北京吗,文本框3根据地区编码表身份证前六位列的前4位数来判断1101是名称列北京辖区吗,文本框4根据地区编码表的身份证前六位列来判断110101是名称列东城区吗。

--  作者:有点蓝
--  发布时间:2023/7/10 13:37:00
--  
编码表在哪里?实例表A这种数据没有办法做判断查询的。应该有一个3级的编码表,分别记录【直辖市、省的编码】、【市辖区编码】、【区县编码
--  作者:江南小镇
--  发布时间:2023/7/11 21:05:00
--  
老师好
文本框“TextBox1”是输入18位身份证号码的能否输到第六位时根据“行政区域划分”表分别自动输入到下面三个文本框中



Dim drs As List(Of DataRow) = DataTables("行政区域划分").Select("身份证前六位 = \'" & e.form.controls("TextBox1").Text & "\'")
If drs.count > 0 Then
    e.form.controls("TextBox9").Text = drs(0)("省辖市")
    e.form.controls("TextBox10").Text = drs(0)("地级市")
    e.form.controls("TextBox7").Text = drs(0)("区县市")
 Else
    e.form.controls("TextBox9").Text = Nothing
    e.form.controls("TextBox10").Text = Nothing
    e.form.controls("TextBox7").Text = Nothing 
End If

--  作者:有点蓝
--  发布时间:2023/7/11 21:20:00
--  
代码放到valuechanged事件

if e.sender.text > "" andalso e.sender.text.length > 5
Dim drs As List(Of DataRow) = DataTables("行政区域划分").Select("身份证前六位 = \'" & e.sender.text.substring(0,6) & "\'")
If drs.count > 0 Then
    e.form.controls("TextBox9").Text = drs(0)("省辖市")
……
end if

--  作者:江南小镇
--  发布时间:2023/7/11 21:52:00
--  
老师,下面三个没有显示
    e.form.controls("TextBox9").Text = drs(0)("省辖市")
    e.form.controls("TextBox10").Text = drs(0)("地级市")
    e.form.controls("TextBox7").Text = drs(0)("区县市")

--  作者:有点蓝
--  发布时间:2023/7/11 22:17:00
--  
说明符合条件的第一行数据没有这3个列数据
--  作者:江南小镇
--  发布时间:2023/7/11 22:52:00
--  



图片点击可在新窗口打开查看此主题相关图片如下:2023-07-11 22 44 22.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2023/7/11 22:54:00
--  
绑定的使用定位:http://www.foxtable.com/webhelp/topics/0553.htm