|
发表于 2010-9-9 01:39:09
|
显示全部楼层
海南省海口市
2精币也是钱呀。抢生意咯
[e].版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
打开 (“1.edb”, , , , , , )
.子程序 _按钮1_被单击
.局部变量 i, 整数型
到首记录 () ' 在查找时一定要让标志回到首记录否则他会按着原先标志的位置往下查找!
' 既然你的易数据库里分别有两个啊七。那我就找那个女的啊七并让她显示到超级列表框内!
.计次循环首 (取记录数 (), i) ' 不用说都知道了,你有9个记录我就让它循环九次当然有时候那个要查找的记录不在第九个的话就不必要都循环九次。
.如果真 (读 (#姓名) = “啊七” 且 读 (#性别) = “女”) ' 我就找那个女的啊七并让她显示到超级列表框内
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (0, 0, 读 (#姓名))
超级列表框1.置标题 (0, 1, 读 (#性别))
返回 () ' 既然在循环尾下面没有什么代码我就返回得了。如果下面还有代码的话我们就用 跳出循环 ()
.如果真结束
跳过 () ' 就是没有找到的话往下一条找!
.计次循环尾 ()
[/e] |
|