CLOSE ALL
SET SAFETY off
USE xxb ALIAS a
USE bmddm ALIAS b IN 0
SELECT b
SCAN
i=ALLTRIM(bmddm)
j=ALLTRIM(bmddm)+".frt"
k=ALLTRIM(bmddm)+".frx"
!ren D:\2022年\座次表\报表1.frt &j
!ren D:\2022年\座次表\报表1.frx &k
SELECT * FROM a WHERE bmddm=i INTO TABLE ls.dbf
REPORT FORM D:\2022年\座次表\&k TO PRINTER
!ren D:\2022年\座次表\&k 报表1.frx
!ren D:\2022年\座次表\&j 报表1.frt
ENDSCAN
SET SAFETY ON