有两个数据窗口对象dw_1,dw_2，通过录入病案号来检索病人信息，如果存在该病人，则自动调出病人的其它信息于dw_1，如果该病人输过血，则调出其输血信息于dw_2。

代码如下：event :itemchanged（）

　int sumpaid

if dwo.name='pa_id' then　//如果当前列为病案号pa_id
 　　select  count(*) into :sumpaid from t_patient where pa_id=:data;　//检索数据表t_patient中病案号为当前item的值的个数

　　 if sumpaid>0 then　//如果有数据，即数据库中有此病人信息
         dw_1.setfilter("pa_id='"+trim(data)+"'") 　//则过滤此病人信息
         dw_1.filter()
    　　 dw_1.retrieve()
   　　dw_1.settaborder('pa_id',0)　//这个功能在下面专门讲
　　 end if
 
 dw_2.settransobject(sqlca)　//dw_2检索病案号为当前item值的输血信息
   dw_2.setfilter("pa_id='"+trim(data)+"'")
   dw_2.filter()
   dw_2.retrieve()
  
end if