超级列表框单击后从数据库读取相应数据到编辑框和日期框

kuersky

请大神们看看，我想在超级列表框中单击一行，然后从数据库读取这一行的数据到编辑框和日期框。我的读取后赋值到编辑框的内容都是一个假字，日期框也没有反映。

企鹅号525150138

求助 - 副本.e (925.94 KB, 下载次数: 10)

2024-9-8 14:41 上传

点击文件名下载附件

企鹅号525150138

  

变量名	类 型	静态	数组	备 注
SQL	文本型

SQL ＝ “select * from [工匠模块] where [ID]=” ＋ 到文本 (超级列表框_主框.取标题 (超级列表框_主框.现行选中项, 0))
记录集1.打开 (SQL, #SQL语句, )
记录集1.到首记录 ()
记录集1.读文本 (“工匠姓名”, SQL)
编辑框_工匠姓名.内容 ＝ SQL
记录集1.读文本 (“性别”, SQL)
组合框_性别.内容 ＝ SQL
记录集1.读文本 (“年龄”, SQL)
编辑框_年龄.内容 ＝ SQL
记录集1.读文本 (“sfz号码”, SQL)
编辑框_sfz.内容 ＝ SQL

i支持库列表	支持库注释
iext	扩展界面支持库一
eDB	数据库操作支持库

.版本 2<br /> .支持库 iext<br /> .支持库 eDB<br /> <br /> .局部变量 SQL, 文本型<br /> <br /> SQL ＝ “select * from [工匠模块] where [ID]=” ＋ 到文本 (超级列表框_主框.取标题 (超级列表框_主框.现行选中项, 0))<br /> 记录集1.打开 (SQL, #SQL语句, )<br /> 记录集1.到首记录 ()<br /> 记录集1.读文本 (“工匠姓名”, SQL)<br /> 编辑框_工匠姓名.内容 ＝ SQL<br /> 记录集1.读文本 (“性别”, SQL)<br /> 组合框_性别.内容 ＝ SQL<br /> 记录集1.读文本 (“年龄”, SQL)<br /> 编辑框_年龄.内容 ＝ SQL<br /> 记录集1.读文本 (“sfz号码”, SQL)<br /> 编辑框_sfz.内容 ＝ SQL

‘后面要取的按照这个格式改

YourH

一眼就看出哪里的问题了，你这代码写的，不看下读文本里面的两个参数嘛，第二个才是收文本的地方
你的代码：
编辑框_工匠姓名.内容 ＝ 到文本 (记录集1.读文本 (“工匠姓名”, SQL))

应该这样写，新建个局部变量去存储文本，然后赋值给编辑框

  

子程序名	返回值类型	公开	备 注
_超级列表框_主框_左键单击表项

变量名	类 型	静态	数组	备 注
SQL	文本型
姓名	文本型

SQL ＝ “select * from [工匠模块] where [ID]=” ＋ 到文本 (超级列表框_主框.取表项数值 (超级列表框_主框.现行选中项))
记录集1.打开 (SQL, #SQL语句, )
记录集1.读文本 (“工匠姓名”, 姓名)
编辑框_工匠姓名.内容 ＝ 姓名

i支持库列表	支持库注释
iext	扩展界面支持库一
eDB	数据库操作支持库

.版本 2<br /> .支持库 iext<br /> .支持库 eDB<br /> <br /> .子程序 _超级列表框_主框_左键单击表项<br /> .局部变量 SQL, 文本型<br /> .局部变量 姓名, 文本型<br /> <br /> SQL ＝ “select * from [工匠模块] where [ID]=” ＋ 到文本 (超级列表框_主框.取表项数值 (超级列表框_主框.现行选中项))<br /> 记录集1.打开 (SQL, #SQL语句, )<br /> 记录集1.读文本 (“工匠姓名”, 姓名)<br /> 编辑框_工匠姓名.内容 ＝ 姓名

补充内容 (2024-9-8 14:53):
这个地方也是错的，改成这样
SQL ＝ “select * from 工匠模块 where [ID]=” ＋ 到文本 (超级列表框_主框.取标题 (超级列表框_主框.现行选中项, 0))

走一回

前面的一个帖子给你源码 了，又开了一贴，这不道德吧