1.设置数据窗口某个列(dept_id)的style type为DropDownListBox:
[cpp] view plaincopy
dw_1.Modify("dept_id.ddlb.case='any'")
2.为下拉列表框添加数据:
[vb] view plaincopy
boolean lb_flag = false
string ls_facno, ls_facname, ls_value
declare cur_munit dynamic cursor for sqlsa ;
prepare sqlsa from "select distinct facno from secmemb where userno = ? order by facno" ;
open dynamic cur_munit using :userid ;
ls_value = colname + ".values=' ~t '"
fetch cur_munit into :ls_facno ;
do while sqlca.sqlcode = 0
ls_facno = Trim(ls_facno)
select facname into :ls_facname from misunit where facno = :ls_facno ;
if not lb_flag then
ls_value = colname + ".values='"
lb_flag = true
else
ls_value += "/"
end if
ls_value += Trim(ls_facname) + "~t" + Trim(ls_facno)
fetch cur_munit into :ls_facno ;
loop
close cur_munit ;
ls_value += "'"
if dwobj.Modify(ls_value) <> "" then return -1