如何使用游标给下拉列表控件的item属性自动赋值？

[suhpoo]

如何使用游标给下拉列表控件的item属性自动赋值？

我在ddlb_1的constructor事情的代码如下：
declare cur cursor for
select distinct jlmc from jl using sqlca;
open cur;
fetch cur into :ls_jlmc;
do while slqca.sqlcode = 0
ddlb_1.additem(ls_jlmc)
fetch cur into :ls_jlmc;
loop;
close cur;
ddlb_1.selectitem(1)
但是实际运行的时候下拉列表框没有任何值。
但如果我这么写：
select distinct jlmc into :ls_jlmc from jl where jlmc='张三' using slqca;
ddlb_1.additem(ls_jlmc)
ddlb_1.selectitem(1)
运行的时候就可以出现正确的值。
请问我该怎么样使用游标对下拉列表进行赋值？

[saiche05]

ing

[fengyantao]

我觉得代码没什么问题，这是我写饿，可以赋值，你看看
declare bumen cursor for
select bmmc
from bm;
open bumen;
fetch bumen
into :ls_bm;
do while sqlca.sqlcode=0
this.additem(ls_bm)
fetch bumen
into :ls_bm;
loop
close bumen;

[wscft]

代码看不出什么问题来
ddlb_1.reset()
ddlb_1.setredraw(false)
.
.
.
ddlb_1.setredraw(true)
另外 可以用debug 跟踪一下fetch 有没有取出值来！

[suhpoo]

fetch 取第一行值的时候没有出来。
这是什么原因呢？

[rightyeah]

可以用datastore加上动态创建数据窗口对象，就可以很容易地用来存放数据，并在需要的时候还可以用来检索选相对应的值

[suhpoo]

但是为什么这么做不行呢？百思不得其解，望告知，谢谢了^_^

[suhpoo]

与上相同的游标代码我在pb6.5里使用，就可以正确。
在pb8.0里就不能正确显示值，看来是软件的版本的问题了

[suhpoo]

我知道了，原来是ODBC的问题，原来我是使用MS for oracle驱动，现在改成oracle for
odbc driver 就可以了。