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


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

主题：[求助]文本框
帅哥哟，离线，有人找我吗？
江南小镇
 小大  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


加好友 发短信
等级：七尾狐 帖子：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是名称列东城区吗。
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)("区县市")
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2023/7/12 4:51:00 [显示全部帖子]

以下是引用有点蓝在2023/7/11 22:54:00的发言：
绑定的使用定位：http://www.foxtable.com/webhelp/topics/0553.htm
老师搞不定
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2023/7/12 10:27:00 [显示全部帖子]

老师好
       字段绑定控件后身份证前六位文本框控件不能赋值给1、2、3文本框。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:身份证.table
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2023/7/12 11:47:00 [显示全部帖子]

以下是引用江南小镇在2023/7/12 10:27:00的发言：
老师好
       字段绑定控件后身份证前六位文本框控件不能赋值给1、2、3文本框。
 下载信息  [文件大小：540.0 KB  下载次数：1]
图片点击可在新窗口打开查看点击浏览该文件:身份证.table

老师，通讯录表用代码绑定了窗口控件后控件无法查询显示
身份证前六位文本框控件输入身份证号码后1、2、3文本框不显示查询字段
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2023/7/12 13:55:00 [显示全部帖子]

老师，身份证号码是18位，”行政区域划分"表"身份证前六位列"只有6位能否中途读取数据。
If e.DataCol.Name = "基本信息_身份证号码" Then 
    If e.NewValue Is Nothing Then 
        e.DataRow("基本信息_省辖市") = Nothing 
        e.DataRow("基本信息_地级市") = Nothing
        e.DataRow("基本信息_区县市") = Nothing
    Else
        Dim dr2 As DataRow
        dr2 = DataTables("行政区域划分").Find("[身份证前六位] = '" & e.NewValue & "'")
        If dr2 IsNot Nothing Then 
            e.DataRow("基本信息_省辖市") = dr2("省辖市")
            e.DataRow("基本信息_地级市") = dr2("地级市")
            e.DataRow("基本信息_区县市") = dr2("区县市")
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2023/7/12 16:02:00 [显示全部帖子]

老师好
       "基本信息_身份证号码”列是空时及时删除“身份证前六位”列的字符


Dim dr3 As DataRow = e.DataRow 
Select Case e.DataCol.Name 
    Case "基本信息_身份证号码"
        dr3("身份证前六位") = dr3("基本信息_身份证号码").substring(0,6)  
End Select
 回到顶部
总数 17 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 7 次数据查询