以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]有关ComboBox控件问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122442)
--  作者：swimmer01
--  发布时间：2018/7/25 16:28:00
--  [求助]有关ComboBox控件问题
请教老师：我在窗口上有一ComboBox控件SelectedIndexChanged事件代码

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dr As DataRow = cmb.SelectedItem
If dr IsNot Nothing Then
    e.Form.Controls("TextBox1").Value= dr("部门")
    e.Form.Controls("TextBox2").Value= dr("姓名")
End If


出现运行错误：”无法将类型为“System.String”的对象强制转换为类型“Foxtable.DataRow”。

不知何故，请指点。
--  作者：有点甜
--  发布时间：2018/7/25 16:32:00
--  

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim str = cmb.SelectedValue

msgbox(str)

Dim dr As DataRow = DataTables("表A").Find("第一列 = \'" & str & "\'")
If dr IsNot Nothing Then
    e.Form.Controls("TextBox1").Value= dr("部门")
    e.Form.Controls("TextBox2").Value= dr("姓名")
End If
--  作者：swimmer01
--  发布时间：2018/7/25 16:45:00
--  
我是通过SQL从后台数据库提取的数据，没得"表A"
--  作者：swimmer01
--  发布时间：2018/7/25 16:48:00
--  
我想从用户表中，得到好友名:[部门].[用户名]
--  作者：有点甜
--  发布时间：2018/7/25 17:06:00
--  
以下是引用swimmer01在2018/7/25 16:45:00的发言：
我是通过SQL从后台数据库提取的数据，没得"表A"

 

那你就需要执行sqlcommand后台查找值

 

http://www.foxtable.com/webhelp/scr/0696.htm

 
--  作者：swimmer01
--  发布时间：2018/7/25 23:17:00
--  
已解决，谢谢！