以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]按照文本内容提取  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67784)

--  作者:荟美绘姿
--  发布时间:2015/5/2 15:56:00
--  [求助]按照文本内容提取


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

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

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

 

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


--  作者:黄训良
--  发布时间: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
--  作者:荟美绘姿
--  发布时间:2015/5/3 13:49:00
--  
能祥细一点吗,谢谢
--  作者:荟美绘姿
--  发布时间:2015/5/3 14:22:00
--  
我所说的这个窗口在表A,要获得的数据是在一个执法人员信息表内
--  作者:程兴刚
--  发布时间:2015/5/3 19:33:00
--  
提问时多发文件少说空话!
--  作者:大红袍
--  发布时间:2015/5/3 20:18:00
--  

 参考思路

 

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

 

 实际上,你直接用find即可

 

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

 

 


--  作者:荟美绘姿
--  发布时间:2015/5/3 22:36:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:交通行政执法管理系统.foxdb


--  作者:大红袍01
--  发布时间:2015/5/3 22:57:00
--  
 看6楼
--  作者:荟美绘姿
--  发布时间: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
--  发布时间:2015/5/4 16:51:00
--  
错误代码不是这个,你肯定是TextBox1  和TextBox2  还是用Dim cm  As WinForm.ComboBox 

应该用 Dim cm  As WinForm.TextBox