|
5精币
本帖最后由 zjsds 于 2011-9-2 18:36 编辑
我的一个大问题,也许对你来说是一个小问题,请好心人帮帮忙。
如果真(“select * from 中心系统目录表 where 编号 ='0'” )
那么 记录集.读文件(,,)
否则 什么都不做
记录集.到下一条
========问题:当数据库中下一条的编号不等于0时,为什么还能执行 读文件命令
[e]
.版本 2
.支持库 eDB
.支持库 iext
.子程序 _主窗口_创建完毕
.局部变量 文本变量, 文本型
.局部变量 计次变量, 整数型
.如果真 (数据库连接.连接Access (取运行目录 () + “\目录数据\中心系统目录.mdb”, “”) = 假)
信息框 (“与数据库连接失败!”, 64, )
返回 ()
.如果真结束
记录集.置连接 (数据库连接)
记录集.打开 (“中心系统目录表”, #数据表名, )
.计次循环首 (记录集.记录数量, 计次变量)
.如果真 (数据库连接.执行SQL (“select 父项编号 from 中心系统目录表 where 父项编号 ='0'”))
记录集.读文本 (“名称”, 文本变量)
超级列表框.插入表项 (, 文本变量, , , , )
.如果真结束
记录集.到下一条 ()
.计次循环尾 ()
[/e]
|
最佳答案
查看完整内容
如果真 (数据库连接.连接Access (取运行目录 () + “\目录数据\中心系统目录.mdb”, “”) = 假)
信息框 (“与数据库连接失败!”, 64, )
返回 ()
记录集.置连接 (数据库连接)
记录集1.打开 (“select 父项编号 from 中心系统目录表 where 父项编号 ='0'”, 1, )
.计次循环首 (记录集1.记录数量, n)
记录集.读文本 (“名称”, 文本变量)
超级列表框.插入表项 (, 文本变量, , , , )
.计次循环尾 ()
...
|