2,496
社区成员
发帖
与我相关
我的任务
分享请问哪的错？
procedure TForm1.loadtree;
var ss:string;
level:integer;
mynode:array[0..3] of TTreenode;
begin
level:=0;
treeview1.Items.clear;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select 界数 from js');
adoquery1.open;
adoquery1.first;
while not adoquery1.Eof do
begin
ss:=adoquery1.Fieldbyname('界数').asstring;
mynode[level]:=treeview1.Items.add(nil,ss);
adoquery1.Next;
end;
level:=level+1;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from xs' );
adoquery1.open;
adoquery1.first;
while not adoquery1.eof do
begin
ss:=adoquery1.FieldByName('性别').asstring;
mynode[level]:=treeview1.Items.Addchild(mynode[level-1],ss);
adoquery1.next;
end;
end;
怎么不行呢，哪的错啊
var ss:string;
level:integer;
mynode:array[0..3] of TTreenode;
begin
level:=0;
treeview1.Items.clear;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select 界数 from js');
adoquery1.open;
adoquery1.first;
while not adoquery1.Eof do
begin
ss:=adoquery1.Fieldbyname('界数').asstring;
mynode[level]:=treeview1.Items.add(nil,ss);
adoquery1.Next;
end;
level:=level+1;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from xs' );
adoquery1.open;
adoquery1.first;
while not adoquery1.eof do
begin
ss:=adoquery1.FieldByName('性别').asstring;
mynode[level]:=treeview1.Items.Addchild(mynode[level-1],ss);
adoquery1.next;
end;
end;
怎么不行呢，哪的错啊
...全文
请发表友善的回复…
发表回复
Magusflp008 2003-03-23
- 打赏
- 举报
错误信息，在哪行？？
sduzjw 2003-03-23
- 打赏
- 举报
具体出什么错了，，我们还不知道呀
zyplwt 2003-03-23
- 打赏
- 举报
看看啊
zyplwt 2003-03-23
- 打赏
- 举报
没问题
我只是想把两个表中的内容都加到一个树状控件中
我只是想把两个表中的内容都加到一个树状控件中
xiangding 2003-03-23
- 打赏
- 举报
与数据库连接有问题吗？
pilicat 2003-03-23
- 打赏
- 举报
你要实现什么功能啊?
zyplwt 2003-03-23
- 打赏
- 举报
愁死我了
zyplwt 2003-03-23
- 打赏
- 举报
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from xs' );
adoquery1.open;
adoquery1.first;
错误在第二个SQL上，把上面的语句去掉，就能正确执行了
adoquery1.sql.clear;
adoquery1.sql.add('select * from xs' );
adoquery1.open;
adoquery1.first;
错误在第二个SQL上，把上面的语句去掉，就能正确执行了
