VF上拉列表框有关问题

VF下拉列表框问题
我在表单上建了一个选项按纽组：

一班 二班 三班 四班 五班......共二十个班，click代码如下：

public n
n=this.value
if n>0
use str(n)
else
messagebox("请先选择班级",64,"提示")
endif

我现在想把选项按纽组按成下拉列表框，应该怎么操作？

请高手帮忙

[解决办法]

SQL code

*-- combo1.init 事件代码create cursor taba (bj c(10))for i=1 to 20    insert into taba values (transform(i)+"班")endfor*--- 上面四行代码可以不要with thisform.combo1   .columncount=1   .displaycount=10   .rowsource="taba.bj"   .rowsourcetype=6   .style=2endwith