【PB】動態新增資料視窗列中下拉選單的內容

1.設定資料視窗某個列(dept_id)的style type為DropDownListBox:

dw_1.Modify("dept_id.ddlb.case='any'")   

2.為下拉選單框新增資料:

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