回复 楼主 pzyun1985
SELE COUNT(*) FROM 家档表4 INTO ARRAY k
A=YEAR(DATE())
KM=K
ii=1
DO WHILE ii
USE D:\Klyin\PRINTERTABLE\家档表4.dbf
GO ii
SELE 小组名称,档案号,姓名,出生日期,婚姻状况,变动日期,相关地说明,联系电话,流动证号,办流动证期,现有子女男,现有子女女,生育证号,避孕状况,开始日期 FROM D:\Klyin\DATATABLE\总人口.dbf WHERE;
村名称=ALLTRIM(家档表4.村名称) AND 小组名称=ALLTRIM(家档表4.小组名称) AND
性别=="女";
AND 户识别号=ALLTRIM(家档表4.户识别号) AND 档案号=ALLTRIM(家档表4.档案号);
AND A-VAL(SUBSTR(ALLTRIM(出生日期),1,4))<50 AND A-VAL(SUBSTR(ALLTRIM(出生日期),1,4))>14 AND (变动类型="流出" OR 变动类型="返回") INTO ARRAY Q
DELETE FROM D:\Klyin\PRINTERTABLE\家档表2.dbf
PACK
APPEND BLANK
GATHER FROM Q
i=i+1
LOOP
REPORT FORM
D:\Klyin\PRINTERTABLE\家庭档案卡2.frx to printer
ENDDO
&& 中间的代码很多,我只截取一小段示例,就是更新一条打印,再更新一条再打印,一直打印到完,涉及内容多不想再折腾一对多报表
[
本帖最后由 pzyun1985 于 2013-11-11 12:24 编辑 ]