代码翻译
USE 报表 ALIAS kkINDEX on 考点代码+考场号+座号 TO temp
SELECT 考点代码,考点名称 FROM kk INTO CURSOR xxdm ORDER BY 考点代码 GROUP BY 考点代码,考点名称
SET PRINTER TO NAME GETPRINTER()
SCAN
SELECT kk
SET FILTER TO kk.考点代码=xxdm.考点代码
aa=messagebox("现在打印 "+ALLTRIM(xxdm.考点代码)+" 桌签,请粘贴正确文件名!",3)
IF aa=6
_cliptext=ALLTRIM(xxdm.考点代码)+ALLTRIM(xxdm.考点名称)+"桌签"
REPORT FORM zhuoqian.FRX NOEJECT NOCONSOLE TO PRINTER
ELSE
IF aa=2
EXIT
ENDIF
ENDIF
ENDSCAN