易语言组合框查找数据库字段问题!!!例如,我创建了一个edb数据库,编辑框1的内容是取的当前日期,

2024-11-02 08:19:30
推荐回答(3个)
回答1:

.版本 2
.子程序 __启动窗口_创建完毕
组合框1.类型 = 2
按钮1.标题 = “写入或读出”
编辑框2.是否允许多行 = 真
.如果真 (文件是否存在 (取运行目录 () + “\日记.edb”) = 假)
创建数据库 ()
.如果真结束
读入项目 ()
.子程序 创建数据库
.局部变量 字段, 字段信息, , "2"
字段 [1].名称 = “日期”
字段 [1].类型 = #文本型
字段 [1].最大文本长度 = 20
字段 [2].名称 = “日记”
字段 [2].类型 = #文本型
字段 [2].最大文本长度 = 1000
创建 (取运行目录 () + “\日记.edb”, 字段)
.子程序 读入项目
.局部变量 记录, 整数型
组合框1.加入项目 (“请选择日期”, 0)
打开 (取运行目录 () + “\日记.edb”, “rj”, , , , , )
到首记录 ()
.计次循环首 (取记录数 (), 记录)
组合框1.加入项目 (读 (“日期”), 记录)
跳过 ()
.计次循环尾 ()
组合框1.现行选中项 = 0
.子程序 _按钮1_被单击, , , 组合框没有选择时则写入.有选择则读出
.如果真 (组合框1.现行选中项 ≠ 0)
读出项目 ()
.如果真结束
加记录 (编辑框1.内容, 编辑框2.内容)
组合框1.清空
读入项目 ()
.子程序 读出项目
置当前库 (“rj”)
跳到 (组合框1.取项目数值 (组合框1.现行选中项))
编辑框1.内容 = 读 (“日记”)

回答2:

我完全没看懂你想表达点什么,前后矛盾!一会写到数据库,一会翻看,一会又编辑框写进去日期到组合框项目。。。你这表达。。。
能短小精干点吗。。。

回答3:

超级列表框。。。先取数据库条数长度,根据长度做计次循环读取,然后假如列表,然后就可以啦,双击表项产生的事件进行取值。