以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  对象强制转换为类型问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192899)
--  作者：lin98
--  发布时间：2024/7/31 11:12:00
--  对象强制转换为类型问题
Dim db As HyS-ql.Database = HySql.DataBaseFactory.CreateDatabase("ky2))
Dim Sql = "SELEC-T DISTINCT Name  From  用户表;" \'"
Dim dt As system.data.DataTable = db.ExecuteDataSet(Sql).Tables(0)
dt.TableName = "用户表" \'"
Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dr As system.data.DataRow = cm.SelectedItem
\'Dim dr As DataRow = cm.SelectedItem
dr = dt.Rows(0) \'

If dr IsNot Nothing Then
    e.Form.Controls("txtName").Value = dr("姓名")
  e.Form.Controls("txtTel").Value = dr("电话")
End If

问题一：之前蓝代码，改为红代码就好，这里执行报错，如何解决？
报错：
无法将类型为“System.String”的对象强制转换为类型“System.Data.DataRow”。

问题一：粉红代码，在窗口打开有写，在启用按键有写，组合框这也写，有没有办法，只写一处？其他引用它？
--  作者：有点蓝
--  发布时间：2024/7/31 11:16:00
--  
ComboBox1下拉列表是怎么设置的？
--  作者：lin98
--  发布时间：2024/7/31 11:28:00
--  
ComboBox1下拉列表是怎么设置的？
ComboBox1下拉列表SelectedIndexChanged，写一楼的代码，执行后报错


[此贴子已经被作者于2024/7/31 11:32:27编辑过]
--  作者：lin98
--  发布时间：2024/7/31 11:33:00
--  
窗口打开后事件
Dim db As HyS-ql.Database = HySq-l.DataBaseFactory.CreateDatabase("ky2))
Dim Sq-l = "SELEC-T DISTINCT Name  From  用户表;" \'"

[此贴子已经被作者于2024/7/31 12:04:20编辑过]
--  作者：有点蓝
--  发布时间：2024/7/31 11:40:00
--  
这种方式添加的下拉项目，就只是普通的字符串而已，直接赋值就行

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")
e.Form.Controls("txtName").Value = cm.text
--  作者：有点蓝
--  发布时间：2024/7/31 11:41:00
--  
如果代码放到SelectedIndexChanged事件，一行就够了

e.Form.Controls("txtName").Value = e.sender.text
--  作者：lin98
--  发布时间：2024/7/31 11:53:00
--  
\'Dim cmd As New SQ-LCommand
\'cmd.C 
\'cmd.CommandText = "SELEC-T Group,部门,角色  From {Users} where name=\'" & e.sender.text & "\'" \'"
\'e.Form.Controls("Group").text = cmd.ExecuteScalar() 

报错，多字段怎么实现？
You have an error in your SQL syntax; check the manual that corresponds to your SQL server version for the right syntax to use near \'Group   From xtyh_tb where name=\'陆一明\'\' at line 1
[此贴子已经被作者于2024/7/31 14:02:32编辑过]
--  作者：lin98
--  发布时间：2024/7/31 11:56:00
--  
多字段如何改实现？
[此贴子已经被作者于2024/7/31 14:27:56编辑过]