數據窗口中DDLB的用法

string ls_value,ls_temp
ls_value = '短期促銷~t短期促銷/'

declare cursor1 cursor for   
  SELECT distinct tb_gds.c_subname
     FROM tb_gds  (nolock);
open cursor1;
fetch cursor1 into :ls_temp;
do while sqlca.sqlcode=0
 if len(trim(ls_temp)) > 0 and ls_temp <> '短期促銷' then
  ls_value = ls_value + ls_temp + '/'
 end if 
 fetch cursor1 into :ls_temp;
loop
close cursor1;//關閉遊標 
this.Modify("c_subname.values = '"+ls_value+"'")