动态修改数据窗口的数据源

 ...

dw_1.dataobject=d_prdtorder_view_cust

...

if ls_refno<>"" then
 dw_1.dataobject="d_prdtorder_saleno"
 dw_1.settransobject(sqlca)
 dw_1.retrieve(ls_refno)
else
 dw_1.retrieve(ll_cid)
end if