- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]按照列表框的选择将表对应列的值赋给文本框的代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120886)
-- 发布时间：2018/6/25 19:01:00
-- [求助]按照列表框的选择将表对应列的值赋给文本框的代码
窗口中有一个列表框“ListBox1”，用于显示外接数据源“Rlzygl”的“Users”表的“用户姓名”。如果在列表框选择用户，即将外接数据源“Rlzygl”的“Users”表的对应用户的“用户编码、用户姓名、用户密码、用户角色、用户权限”等分别赋值给同一窗口的文本框“"TextBox1"、"UserName"、"PassWord"、"TextBox4"、"TextBox5"，否则各文本框为空。但从各示例中照搬的代码不会配套在一起，请老师帮助写。谢谢。
(不正确的代码传不上来，只好传个图片，请老师见谅)
此主题相关图片如下：20180625185753.jpg
如果在各文本框中修改内容，又如何将修改后的内容保存回表内，具体代码也请老师帮助。谢谢！
[此贴子已经被作者于2018/6/25 19:10:45编辑过]
-- 发布时间：2018/6/25 20:35:00
--
建议直接使用datatable，初学者没有必要搞那么复杂，大部分情况下datatable的性能并不差。并且容易用多了。
更新大概这样
Dim cmd As New SQLCommand
cmd.CommandText = "UPDATE {用户} SET 姓名 = \'" & e.form.controls("Textbox1").text & "\' WHERE 编码=\'00001\'"
cmd.ExecuteNonQuery()
cmd.CommandText = "UPDATE {用户} SET 姓名 = \'" & e.form.controls("Textbox1").text & "\' WHERE 编码=\'00001\'"
cmd.ExecuteNonQuery()
-- 发布时间：2018/6/26 9:33:00
--
谢谢蓝老师指点。但还是想让老师给修改一下代码。一楼的代码中，在列表框显示的那部分已经实现，不会的就是按选择赋值给文本框的那部分，恳请老师在百忙中给予修改。谢谢。
-- 发布时间：2018/6/26 10:28:00
--
那应该去写listbox的事件SelectedIndex。
http://www.foxtable.com/webhelp/scr/0958.htm
得到编号以后，select查找对应的行，然后赋值。
-- 发布时间：2018/6/26 16:07:00
--
甜老师，listbox的事件只有[SelectedIndexChanged]，没有SelectedIndex。
-- 发布时间：2018/6/26 18:18:00
--
在SelectedIndexChanged事件写代码，查找、赋值。
-- 发布时间：2018/6/26 18:19:00
--
如果自己不会做，请把自己做的项目发上来测试（数据库也要发上来）