素材.txt

地方政府非税收入管理程序。powerbulider8开发。

string ls_shopname

startdate=date(sle_1.text)
enddate=date(sle_2.text)
if shopcode<>0 then
	dw_1.retrieve(shopcode,startdate,enddate)
	ls_shopname=ddlb_1.text
	dw_1.Object.t_3.text=ls_shopname
	dw_1.Object.t_4.text=string(startdate)
	dw_1.Object.t_6.text=string(enddate)
else
	dw_2.retrieve(startdate,enddate)		// 处理汇总表 dw_2
	dw_2.Object.t_4.text=string(startdate)
	dw_2.Object.t_6.text=string(enddate)
end if

//=======================================================================

string 	str1
integer	i,j	//shopcode
long		ll_row

//get shop code
if ddlb_1.text="总表：全部单位统计" then
	dw_2.visible=true
	dw_1.visible=false
	shopcode=0
else
	dw_2.visible=false
	dw_1.visible=true
	str1=ddlb_1.text(index)
	j=ds_1.rowcount()
	for i=1 to j
		if str1=ds_1.getitemstring(i,2) then
			shopcode=ds_1.getitemnumber(i,1)
			exit
		end if
	next
end if