nasıl bir sorgulama olmalı?

Aşağıdaki program ile istediğin işlemi yapabilirsin, fazla vakit ayıramadığım için doğru çalışıp çalışmadığını çok detaylı kontrol etmedim ama bu iş için en iyi yöntemlerden biri bu, sen daha detaylı kontrol edersen iyi olur.

Table structure ları ile içerikleri ve program aşağıda.
**********
BRANS.DBF

Field  Field Name      Type                Width    Dec   Index   Collate Nulls    Next    Step
    1  SINIF           Character               3                             No
    2  BRANS           Character              10                             No
    3  DERS            Character              10                             No
    4  SAAT            Character               1                             No
    5  DERSGUN         Character              50                             No

sinif,brans,ders,saat,dersgun
"A9","SAYISAL","MAT1","5","SALI,CUMA,PAZAR"
"A9","SAYISAL","GEO","4","SALI,CUMA,PAZAR"
"A9","SAYISAL","TÜRKÇE","3","SALI,CUMA,PAZAR"
"C12","SÖZEL","EDEBİYAT","5","SALI,CUMA"
"C12","SÖZEL","COĞRAFYA","4","SALI,CUMA"
"C12","SÖZEL","MAT1","2","SALI,CUMA"
"C13","SAYISAL","MAT1","1","PAZARTESI"
**********
OGRETMEN.DBF

Field  Field Name      Type                Width    Dec   Index   Collate Nulls    Next    Step
    1  OGRNAME         Character              20                             No
    2  DERS            Character              10                             No
    3  GUNLER          Character              50                             No
    4  SINIFLAR        Character              20                             No

ogrname,ders,gunler,siniflar
"Ahmet Taş","MAT1","SALI,CUMA,PAZAR,PAZARTESI","A9,C12,C13"
"Mehmet Kaya","GEO","SALI,CUMA,PAZARTESI","A9"
**********

gunler=",PAZARTESI,SALI,CARSAMBA,PERSEMBE,CUMA,CUMARTESI,PAZAR,"

 

Use ogretmen In 0

Use brans In 0

 

Create Cursor dprogram ( ogrname c(20),;

    pzt1 c(3),pzt2 c(3),pzt3 c(3),pzt4 c(3),pzt5 c(3),pzt6 c(3),pzt7 c(3),;

    sal1 c(3),sal2 c(3),sal3 c(3),sal4 c(3),sal5 c(3),sal6 c(3),sal7 c(3),;

    car1 c(3),car2 c(3),car3 c(3),car4 c(3),car5 c(3),car6 c(3),car7 c(3),;

    per1 c(3),per2 c(3),per3 c(3),per4 c(3),per5 c(3),per6 c(3),per7 c(3),;

    cum1 c(3),cum2 c(3),cum3 c(3),cum4 c(3),cum5 c(3),cum6 c(3),cum7 c(3),;

    cmt1 c(3),cmt2 c(3),cmt3 c(3),cmt4 c(3),cmt5 c(3),cmt6 c(3),cmt7 c(3),;

    paz1 c(3),paz2 c(3),paz3 c(3),paz4 c(3),paz5 c(3),paz6 c(3),paz7 c(3) );

 

Select ogretmen

Go Top

Do While Not Eof()

    Insert Into dprogram (ogrname) Values (ogretmen.ogrname)

 

    Select brans

    For i=1 To 7

        cgun=Strextract(gunler,",",",",i)

        For j=1 To 7

            csaat=Transform(j,"#")

            Locate For brans.ders=ogretmen.ders And cgun$brans.dersgun And brans.saat=csaat

            If Found()

                If Alltrim(brans.sinif)$ogretmen.siniflar And cgun$ogretmen.gunler

                    cfield=Strextract(",pzt,sal,car,per,cum,cmt,paz,",",",",",i)+csaat

                    Replace dprogram.&cfield With brans.sinif

                Endif

            Endif

        Endfor

    Endfor

 

    Select ogretmen

    Skip

Enddo

cevaplarınız için teşekkürler. programı denedim.sadece şöyle bir sıkıntı var. sınıfları yerleştirirken saat kısmını yanlış algılıyor.
yani o hafta a9 sınıfına 5 saat vermesi gerekirken 5.saate yerleştiriyor. veya c12 ye 2 saat vermesi gerekirken 2.saatlere yerleştiriyor.