Neyzen,
VFPnin versiyonundan bagimsiz ufak hileli bir yontem ama biraz hazirlik gerekiyor:
Ilk tablo icin gecici bir rapor:
Visual Fox Pro
USE customer ALIAS t1
CREATE REPORT temp1 FROM ALIAS() ALIAS FIELDS Cust_id,Company,Contact column
-Modi report temp1
-Tum baslik ve fieldleri sec
-DblClick
-Properties
-Altta Apply these conditions ... isaretle (fieldlere tek tek yapmamak icin)
-Print only when ... kismina:
tablenumber=1
-OK
-Sakla ve kapat
Ikinci tablo gecici rapor:
Visual Fox Pro
USE employee ALIAS t2
CREATE REPORT temp2 FROM ALIAS() ALIAS ;
FIELDS emp_id,First_Name,Last_Name,Birth_Date column
(Not: Gecici raporlar sadece tablo basina rapor icerigini rahat hazirlamak icin). Ayni islemi buna yap, yalniz 'Print only ...' icin:
tablenumber=2
kullan. Gecici raporlar hazir. Ikisini birlestiren rapor:
modi report TwoTables
modi report temp1
modi report temp2
-TwoTables'a gec.
-Data grouping ekle. Expression: tablenumber
-Temp1'e gec baslik ve alanalari kopyele
-TwoTables'a yapistir (basliklar Group header'a)
-Temp2 ile aynisini yap.
Su anda Group headerda her ikisinin basliklari ustuste duruyor, detailde de alanlari. Sakla kapat. Temp1,2 ile isin bitti. Silebilirsin.
Visual Fox Pro
CLOSE DATABASES all
LOCAL lnTable1Records
SELECT * FROM customer ORDER BY company INTO CURSOR t1 nofilter
lnTable1Records = _tally
SELECT * FROM employee ORDER BY first_Name,last_Name INTO CURSOR t2 nofilter
SELECT 1 as tablenumber FROM t1 ;
UNION ALL ;
SELECT 2 as tablenumber FROM t2 ;
INTO CURSOR crsReport
SET RELATION TO RECNO() INTO t1, RECNO()-m.lnTable1Records INTO t2
REPORT FORM twoTables preview
SET RELATION to