select gfqc as 供方全称,pjcp as 评价产品,ks as 科室,yrjbr as 引入经办人,pjrq as 评价日期 from gysdrgrid into dbf qhgrid1
thisform.grid1.recordsource=''
thisform.grid1.recordsource='qhgrid1'
select gfqc as 供方全称,pjcp as 评价产品,ks as 科室,yrjbr as 引入经办人,pjrq as 评价日期 from gysdrgrid into dbf qhgrid1
ThisForm.Grid1.ColumnCount=Fcount("qhgrid1")
thisform.grid1.recordsource=''
thisform.grid1.recordsource='qhgrid1'
Thisform.grid1.RecordSource=''
Select gfqc As 供方全称,pjcp As 评价产品,ks As 科室,yrjbr As 引入经办人,pjrq As 评价日期 From gysdrgrid Into Dbf qhgrid1
Thisform.grid1.RecordSource='qhgrid1'