Foxtable(狐表)用户栏目专家坐堂 → [求助]按照文本内容提取


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

主题:[求助]按照文本内容提取

帅哥哟,离线,有人找我吗?
荟美绘姿
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
[求助]按照文本内容提取  发帖心情 Post By:2015/5/2 15:56:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20150502154739.png
图片点击可在新窗口打开查看

combobox1是从执法人员信息表中获取的,执法人员信息表中有两列(分别为:执法人员姓名和执法证号码)

当combobox1中选择了执法人员后,则TextBox1中自动取得相应的执法证号码

 

请求大侠这个函数该如何写?


 回到顶部
帅哥哟,离线,有人找我吗?
黄训良
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1100 积分:8985 威望:0 精华:0 注册:2014/3/15 14:36:00
  发帖心情 Post By:2015/5/3 1:13:00 [只看该作者]

某组合框绑定到客户表,希望从该组合框选择一个客户后,能够将该客户的电话和姓名填入另两个文本框中。 为实现此目的,可将该组合框的SelectedIndexChanged事件代码设为: Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1") Dim dr As DataRow = cm.SelectedItem If dr IsNot Nothing Then ??? e.Form.Controls("txtName").Value = dr("姓名") ??? e.Form.Controls("txtTel").Value = dr("电话") End If

 回到顶部
帅哥哟,离线,有人找我吗?
荟美绘姿
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
  发帖心情 Post By:2015/5/3 13:49:00 [只看该作者]

能祥细一点吗,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
荟美绘姿
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
  发帖心情 Post By:2015/5/3 14:22:00 [只看该作者]

我所说的这个窗口在表A,要获得的数据是在一个执法人员信息表内

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2015/5/3 19:33:00 [只看该作者]

提问时多发文件少说空话!

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/3 20:18:00 [只看该作者]

 参考思路

 

http://www.foxtable.com/help/topics/1523.htm

 

 实际上,你直接用find即可

 

http://www.foxtable.com/help/topics/0396.htm

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
荟美绘姿
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
  发帖心情 Post By:2015/5/3 22:36:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:交通行政执法管理系统.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍01
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:88 积分:518 威望:0 精华:0 注册:2015/5/3 21:12:00
  发帖心情 Post By:2015/5/3 22:57:00 [只看该作者]

 看6楼

 回到顶部
帅哥哟,离线,有人找我吗?
荟美绘姿
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
  发帖心情 Post By:2015/5/4 16:50:00 [只看该作者]

Dim cm  As WinForm.ComboBox = e.Form.Controls("ComboBox1")
 Dim dr As DataRow = cm.SelectedItem
 If dr IsNot Nothing Then
     e.Form.Controls("TextBox1").Value = dr("zfzhm")
End If

 

运行时出现运行错误

无法将类型为“Foxtable.WinForm.TextBox”的对象强制转换为类型“Foxtable.WinForm.ComboBox”。

 

这个代码错在哪里,请大侠帮忙看一下下。


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/5/4 16:51:00 [只看该作者]

错误代码不是这个,你肯定是TextBox1  和TextBox2  还是用Dim cm  As WinForm.ComboBox 

应该用 Dim cm  As WinForm.TextBox

 回到顶部
总数 17 1 2 下一页