- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]文本框 (http://foxtable.net/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