易语言 高级表格读出的数据,我想双击某行后自动将某行内容自动填充到相应编辑框内!请大神们帮帮忙!
高级表格(错误太多)不如超级列表框.
.版本 2
.程序集 窗口程序集1
.程序集变量 语文, 双精度小数型
.程序集变量 数学, 双精度小数型
.程序集变量 外语, 双精度小数型
.程序集变量 总分, 双精度小数型, , "0"
.程序集变量 名次, 双精度小数型, , "0"
.程序集变量 记录, 整数型
.子程序 __启动窗口_创建完毕
.如果真 (取反 (文件是否存在 (取运行目录 () + “\数据库.edb”)))
创建数据库 ()
.如果真结束
打开 (取运行目录 () + “\数据库.edb”, “数据库”, , , , , )
.如果真 (取记录数 () = 0)
编辑框1.获取焦点 ()
返回 ()
.如果真结束
刷新列表 ()
.子程序 创建数据库
.局部变量 字段, 字段信息, , "4"
字段 [1].名称 = “姓名”
字段 [1].类型 = #文本型
字段 [1].最大文本长度 = 10
字段 [2].名称 = “语文成绩”
字段 [2].类型 = #文本型
字段 [2].最大文本长度 = 5
字段 [3].名称 = “数学成绩”
字段 [3].类型 = #文本型
字段 [3].最大文本长度 = 5
字段 [4].名称 = “外语成绩”
字段 [4].类型 = #文本型
字段 [4].最大文本长度 = 5
创建 (取运行目录 () + “\数据库.edb”, 字段)
.子程序 _按钮1_被单击
.如果真 (按钮1.标题 = “修改”)
修改数据库 ()
_超级列表框1_右键单击表项 ()
返回 ()
.如果真结束
.如果真 (编辑框1.内容 = “”)
信息框 (“姓名不能为空!”, 0, )
返回 ()
.如果真结束
加记录 (编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容)
刷新列表 ()
广告 您可能关注的内容 |