1. Set the style type of a column (dept_id) in the data window to dropdownlistbox:
Dw_1.modify ("dept_id.ddlb.case = 'any '")
2. Add data to the drop-down list box:
Boolean lb_flag = falsestring ls_facno, ls_facname, ls_valuedeclare 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; loopclose cur_munit; ls_value + =" '"If dwobj. Modify (ls_value) <>" "Then return-1