Re: Grid de cell merge gibi birsey
Böyle bir şey mi?
Visual Fox Pro
CLOSE DATABASES
create cursor crsmakina ( kod c(6) )
insert into crsmakina values ("PR04")
insert into crsmakina values ("PR05")
insert into crsmakina values ("PR06")
insert into crsmakina values ("PR07")
insert into crsmakina values ("PR08")
CREATE CURSOR crsfisgun ( kodm c(10),emno c(6),kod c(16),miktaru n(8),A1 N(6),A2 N(6),B1 N(6),B2 N(6),C1 N(8),C2 N(8))
INSERT INTO crsfisgun VALUES ("PR04","301594","4020000403",60000,5000,0,0,0,0,0)
INSERT INTO crsfisgun VALUES ("PR04", "301603","TŞ 2425 RÇN",119500,0,0 ,35600,0,40000,0)
INSERT INTO crsfisgun VALUES ("PR04", "301586","TŞ 2423 RPK",18500,0 ,0,0, 0,0,0)
INSERT INTO crsfisgun VALUES ("PR04", "301559","C2013", 47500, 0 ,0,0, 0,0,0)
INSERT INTO crsfisgun VALUES ("PR05" ,"301546","TEK 2863 RP" ,775000 , 200000 , 200000,75000,0,0,0)
INSERT INTO crsfisgun VALUES ("PR05" ,"301597","TB 2206.70 RP",42250 , 0 , 0 ,0,0,0,0)
INSERT INTO crsfisgun VALUES ("PR05" ,"301610","TEK 2862 RP" ,12800 , 0, 0 ,0,0,0,0)
INSERT INTO crsfisgun VALUES ("PR06" , "301579" , "TE 2324 DPK" ,130000 , 60000 ,0 ,0,0,0,0)
INSERT INTO crsfisgun VALUES ("PR06" , "301394" , "TD 2122.80 RP" ,100000 , 0 ,0 ,0,0,60000,4000)
INSERT INTO crsfisgun VALUES ("PR06" , "301578" , "TE 2318 DPK" ,154700 , 0 , 0 ,0,0,0,23000)
INSERT INTO crsfisgun VALUES ("PR06" , "301600" , "TÖZ 2045 DFBK" ,32000 , 0 , 0 ,0,0,0,0)
INSERT INTO crsfisgun VALUES ("PR07" , "301509" , "61710200-02" ,809600 , 36000,0 ,63000,38100,66000,32000)
INSERT INTO crsfisgun VALUES ("PR08" , "301543" , "MT 2111.80 RP" ,1218000 ,252000,28000,238000,112000,56000,168000)
INSERT INTO crsfisgun VALUES ("PR08" , "301607" , "MS 2111.80 RP" ,210000 , 0 , 0,0,0,0,0)
CREATE CURSOR crsemir (emno c(6),miktar n(8))
INSERT INTO crsemir VALUES ("301594",100000)
INSERT INTO crsemir VALUES ("301603",250000)
INSERT INTO crsemir VALUES ("301586",100000)
INSERT INTO crsemir VALUES ("301559",100000)
INSERT INTO crsemir VALUES ("301546",90000)
INSERT INTO crsemir VALUES ("301597",120000)
INSERT INTO crsemir VALUES ("301610",120000)
INSERT INTO crsemir VALUES ("301579",500000)
INSERT INTO crsemir VALUES ("301394",300000)
INSERT INTO crsemir VALUES ("301578",170000)
INSERT INTO crsemir VALUES ("301600",150000)
INSERT INTO crsemir VALUES ("301509",30000)
INSERT INTO crsemir VALUES ("301543",85000)
INSERT INTO crsemir VALUES ("301607",100000)
INSERT INTO crsemir VALUES ("301608",100000)
create cursor crskart (Kod c(16),tanim C(40))
INSERT INTO crskart values ("TD 2122.80 RP","AAA")
INSERT INTO crskart values ("61710200-02", "BBB")
INSERT INTO crskart values ("MT 2111.80 RP","CCC")
INSERT INTO crskart values ("TB 2201.65 RP","DDD")
INSERT INTO crskart values ("TEK 2863 RP", "EEE")
INSERT INTO crskart values ("TK 2805 RP", "FFF")
INSERT INTO crskart values ("C2013","GGG")
INSERT INTO crskart values ("TE 2318 DPK", "HHHH")
INSERT INTO crskart values ("TE 2324 DPK", "KKKK")
INSERT INTO crskart values ("TE 2341 RP", "LLLLL")
INSERT INTO crskart values ("TŞ 2423 RPK", "MMMM")
INSERT INTO crskart values ("TYE 2705 RPK", "NNNN")
INSERT INTO crskart values ("4020000403", "ZZZZZ")
INSERT INTO crskart values ("TB 2206.70 RP","TYTYTY")
INSERT INTO crskart values ("TD 2107.50 RP","ERTERT")
INSERT INTO crskart values ("TÖZ 2045 DFBK","YUTRWE")
INSERT INTO crskart values ("TŞ 2425 RÇN", "HUNURTE")
INSERT INTO crskart values ("MS 2111.80 RP","MNKUM")
INSERT INTO crskart values ("MT 2117.80 RP","DTRUS")
INSERT INTO crskart values ("TEK 2862 RP", "EKREST")
Select ;
CrsMakina.kod As Kod,;
CrsFisgun.emno,;
CrsFisgun.kod As KodCrsFisGun,;
CrsKart.TANIM,;
CrsEmir.Miktar, ;
CrsFisgun.miktaru,;
CrsFisgun.A1,;
CrsFisgun.A2,;
CrsFisgun.B1,;
CrsFisgun.B2,;
CrsFisgun.C1,;
CrsFisgun.C2 ;
From CrsMakina ;
INNER Join CrsFisgun On CrsMakina.kod = CrsFisgun.kodm ;
INNER Join CrsEmir On CrsFisgun.emno = CrsEmir.emno ;
INNER Join CrsKart On CrsFisgun.kod = CrsKart.kod ;
order By CrsMakina.kod
Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü
