如何把MDB数据库里"项目"表里的"项目名称"字段下的内容写到树型框里为父值,见图3.将"附件"表里"文件名"字段下的内容按"项目序号'放到所对应的父值下面。"项目序号'为1,所对应的文件名放到“信息中心制度”下,"项目序号'为2,所对应的文件名放到“信息中心体系”下。
我写的,只能把项目的内容放进去。但附件的内容放不到对应的项目里面。那位大神帮忙写一下。数据库文件传不上去。 变量名 | 类 型 | 静态 | 数组 | 备 注 | 项目总数 | 整数型 | | | 文件总数 | 整数型 | | | 循环次数 | 整数型 | | | 项目名称 | 文本型 | | | 文件名 | 文本型 | | | 项目序号 | 整数型 | | | 如果 (数据库连接1. 连接Access (取当前目录 () + “\Database2.mdb”, “”)) 数据库连接成功 = 真 _启动窗口.标题 = “数据库连接成功”如果 (数据库连接成功 = 真)记录集1. 置连接 (数据库连接1 )记录集1. 打开 (“SELECT * FROM 项目”, #SQL语句, )项目总数 = 记录集1.记录数量 记录集1. 到首记录 () 计次循环首 (项目总数, 循环次数 )记录集1. 读文本 (“项目名称”, 项目名称 ) 树型框1. 加入项目 (-1, 项目名称, , , , 假, )记录集1. 到下一条 ()计次循环尾 ()记录集1.关闭 ()数据库连接成功 = 假 _启动窗口.标题 = “数据库连接失败” |