救急!!

[lonelyhost]

有个dropdownlistbox控件,如何能使它在运行时,它的item出现sql中的一个表的某些数据.例如我建立一个ddlb_1这个控件,我要将sql的一个表里的人名读入这个ddlb_1,让程序在运行时,下拉ddlb_1时,能罗列出表中的人名.如何实现?

[powerbu]

先用游标取数存入变量ls_name

再用 AddItem(ls_name)

推进游标

[mawu]

string ls_tablename,ls_SqlStatement,ls_name
int li_count=0
ls_tablename="renshi"

ls_SqlStatement=" SELECT name FROM "+ls_tablename
ddlb_1.Reset()

Declare my_cursor Dynamic Cursor For SQLSA;
Prepare SQLSA from :ls_SqlStatement;
Open Dynamic my_cursor Using DescripTor SQLDA;
Fetch my_cursor into :ls_name;

do while SQLCA.SQLCode=0
ddlb_1.AddItem(ls_name)
Fetch my_cursor into :ls_name;
loop

Close my_cursor;

[lonelyhost]

to mawu() :

这段代码对应ddlb_1的哪个事件?

我试了还是不行

[lonelyhost]

各位救命呀!十万活计!!!

[pol]

应该写在窗口的open事件里！

[lonelyhost]

string name,bb

declare cur_tmp cursor for
select depart_name from depart;
open cur_tmp;
fetch cur_tmp into :bb;
do while sqlca.sqlcode=0
this.additem(bb)
fetch cur_tmp into :bb;
loop
close cur_tmp;
我是这样写的,但是还是不行

[pol]

应该写在窗口的open事件里！

string name,bb

declare cur_tmp cursor for
select depart_name from depart;
open cur_tmp;
fetch cur_tmp into :bb;
do while sqlca.sqlcode = 0

this.additem(bb) ????
应该是控件名
eg：ddlb_1.AddItrem(bb)

fetch cur_tmp into :bb;
loop
close cur_tmp;

[lonelyhost]

我在open事件加入了这样的代码还是不行,怎样改呀,各位大虾!!!

[lonelyhost]

有哪位大虾给个圆满的答复给我！！感激不尽！！

[dreamli]

STRING ls_name
ddlb_1.setfocus()
DECLARE c1 CURSOR FOR
SELECT name FROM user;
OPEN c1 ;
FETCH c1 INTO :ls_name;
DO WHILE sqlca.sqlcode=0
ddlb_1.InsertItem(ls_name,0)
FETCH c1 INTO :ls_name;
LOOP
CLOSE c1;
将该段程序放到open窗口的open事件中就可以了。