请问我的源码哪里错了?id取不出来?

392601942

请帮我看看好吗?
.版本 2

.子程序 __启动窗口_创建完毕
.局部变量 sql, 文本型
.局部变量 句柄, 整数型

.如果真 (外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\db.mdb”, , , , ) ＝ 假)
    信息框 (“打开数据库失败”, 0, )
    结束 ()
.如果真结束
sql ＝ “select 软件总类 from 表1”
句柄 ＝ 外部数据库1.查询 (sql)
外部数据库1.到首记录 (句柄)
.判断循环首 (外部数据库1.尾记录后 (句柄) ＝ 假)
    组合框1.加入项目 (外部数据库1.读 (句柄, 1), )
    外部数据库1.到后一记录 (句柄)
.判断循环尾 ()
外部数据库1.关闭记录集 (句柄)



.子程序 _组合框1_列表项被选择
.局部变量 sql, 文本型
.局部变量 句柄, 整数型
.局部变量 临时_文本, 文本型, , "0"

.如果真 (组合框1.现行选中项 ＝ -1)
    返回 ()
.如果真结束
sql ＝ “select 软件分类 from 表1 where 软件总类='” ＋ 组合框1.取项目文本 (组合框1.现行选中项) ＋ “'”
句柄 ＝ 外部数据库1.查询 (sql)
临时_文本 ＝ 分割文本 (外部数据库1.读 (句柄, 1), “|”, )
编辑框1.内容 ＝ 到文本 (外部数据库1.读 (句柄, 2))
外部数据库1.关闭记录集 (句柄)
组合框2.清空 ()
.计次循环首 (取数组成员数 (临时_文本), 句柄)
    组合框2.加入项目 (临时_文本 [句柄], )
.计次循环尾 ()



.子程序 __启动窗口_将被销毁

外部数据库1.关闭 ()

千年

cs.zip (1.81 KB, 下载次数: 17)

2012-2-18 23:51 上传

点击文件名下载附件

原来在此！！

千年

没什么好说的啦，表示已经QQ联系解决好了！我马上 传源码