在数据窗口中添加一个公式列
--在itmchanged事件中写的计算赋值代码
String ls_gs,ls_sql
decimal{2} ls_gsjg
if dwo.name='gs1' then
this.accepttext( )
ls_gs = this.object.gs1[row]
ls_sql ="select round(to_number("+ ls_gs + "),0) from dual"
declare cur_test dynamic cursor for sqlsa;
prepare sqlsa from :ls_sql;
open dynamic cur_test;
fetch cur_test into:ls_gsjg;
do while sqlca.sqlcode=0
fetch cur_test into:ls_gsjg;
this.object.parent_many[row] = ls_gsjg
loop
close cur_test;
end if