if is_hk="h" then
dw_phmx.DataObject="dw_hy1" //货车
dw_phmx.DataObject="dw_ky1" //客车
end if
dw_phmx.settransobject(sqlca)
dw_phmx.setredraw(false)
dw_phmx.setfilter("skrid='"+gs_user_id +"' and string(jfdate,'yyyy-mm-dd hh:mm:ss')='"+is_Datetime+"'"); //收款人和收款日期
dw_phmx.filter()
dw_phmx.retrieve()
dw_phmx.setredraw(true)
//pb下这时候显示1,编译后就0
messagebox("",dw_phmx.rowcount(),QUESTION!)
//以下是根据记录数,如果=1就一种格式,》1就打两种格式
if dw_phmx.rowcount()=1 then
dw_phmx.print()
// messagebox("",'1',QUESTION!)
elseif dw_phmx.rowcount()>1 then
if is_hk="h" then
dw_phmx.DataObject="dw_hy2"
else
dw_phmx.DataObject="dw_ky2"
end if
dw_phmx.settransobject(sqlca)
dw_phmx.setredraw(false)
dw_phmx.setfilter("skrid='"+gs_user_id +"' and string(jfdate,'yyyy-mm-dd hh:mm:ss')='"+is_Datetime+"'");
dw_phmx.filter()
dw_phmx.retrieve()
dw_phmx.setredraw(true)
dw_phmx.print()
// messagebox("",'2',QUESTION!)
if is_hk="h" then
dw_phmx.DataObject="dw_hy3"
else
dw_phmx.DataObject="dw_ky3"
end if
dw_phmx.settransobject(sqlca)
dw_phmx.setredraw(false)
dw_phmx.setfilter("skrid='"+gs_user_id +"' and string(jfdate,'yyyy-mm-dd hh:mm:ss')='"+is_Datetime+"'");
dw_phmx.filter()
dw_phmx.retrieve()
dw_phmx.setredraw(true)
dw_phmx.print()
// messagebox("",'3',QUESTION!)
end if
if dw_phmx.rowcount()>0 then
dw_phmx.setfocus()
dw_phmx.selectrow(0,false)
dw_phmx.selectrow(1,true)
end if
//messagebox("",dw_phmx.rowcount(),QUESTION!)