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+"'")