Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]文本框


  共有4502人关注过本帖树形打印复制链接

主题：[求助]文本框
帅哥哟，离线，有人找我吗？
江南小镇
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		[求助]文本框  发帖心情 Post By：2023/7/10 9:50:00 [只看该作者]

老师好
    当身份证前六位控件输入数字后下面三个文本框分别对应自动输入
    比如：110101（身份证前六位）
    11文本框1输入北京
    01文本框2输入市辖区
    01文本框3输入东城区

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110553 积分：562655 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/10 10:03:00 [只看该作者]

怎么知道11文本框1一定是输入北京，01文本框2一定是输入市辖区？根据什么规则判断？

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2023/7/10 12:17:00 [只看该作者]

老师
     根据"身份证地区编码”表 前2位是直辖市、省的编码，第3、4位是市辖区编码，第5、6位是区县编码。文本框一填写身份证前面6位数，文本框2根据地区编码表的身份证前六位的列来判断11是名称列北京吗，文本框3根据地区编码表身份证前六位列的前4位数来判断1101是名称列北京辖区吗，文本框4根据地区编码表的身份证前六位列来判断110101是名称列东城区吗。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110553 积分：562655 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/10 13:37:00 [只看该作者]

编码表在哪里？实例表A这种数据没有办法做判断查询的。应该有一个3级的编码表，分别记录【直辖市、省的编码】、【市辖区编码】、【区县编码】

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110553 积分：562655 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：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)("区县市")
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110553 积分：562655 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/11 22:17:00 [只看该作者]

说明符合条件的第一行数据没有这3个列数据

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2023/7/11 22:52:00 [只看该作者]




图片点击可在新窗口打开查看此主题相关图片如下：2023-07-11 22 44 22.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110553 积分：562655 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/11 22:54:00 [只看该作者]


 回到顶部
总数 32 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询