您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

我的毕业设计，集合中的关键字不唯一的问题,请高手帮忙解决

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

我的毕业设计，集合中的关键字不唯一的问题,请高手帮忙解决

发表于：2007-03-30 16:53:54 楼主

private sub form_activate（)
dim i as integer
dim rds_booksort as adodb.recordset
set rds_booksort = new adodb.recordset
call renew

myconn.ＥＸＥＣute "drop table book_sort "

rds_booksort.open "select distinct book_sort into book_sort from 图书信息 ", myconn, adopenkeyset, adlockoptimistic, 1

rds_booksort.open "select book_sort from book_sort ", myconn, adopenkeyset, adlockoptimistic, 1

treeview1.nodes.add , , "r ", "所有 "

for i = 0 to rds_booksort.recordcount - 1
treeview1.nodes.add "r ", tvwchild, "s " & i, rds_booksort.fields（0)
rds_booksort.movenext
next i
treeview1.nodes（ "r ").expanded = true
rds_booksort.close

call cmd_book_clear_click
call mshgridset
mdimain.statusbar1.panels（3) = "共有图书 " & mshflexgrid1.rows - 1 & "本满足条件 "

当我用vb第一次运行这个窗体的时候没有错误，为什么第二次加载会有错误提示集合中的关键字不唯一，一直不明白这是为什么，请各位高手赐教，不胜感激。

发表于：2007-03-31 18:01:361楼得分:0

treeview1.nodes（ "r ").expanded = true

rds_booksort=null

rds_booksort.close

下一篇：水晶报表的动态字段的动态链接问题
上一篇：求datagrid相关属性和方法的介绍

其他资讯