1 Konuyu açan ugurlu2001 Son düzenleyen, ugurlu2001 (22.06.2009 16:27:18)

  • ugurlu2001
  • ugurlu2001
  • Uzman Üye
  • Offline
  • Yer: Istanbul
  • Kayıt Tarihi: 11.10.2006
  • İleti: 1,642

Konu: AUSED() Hakkında?

Kullandığım Kod Aşağıda:

Visual Fox Pro
LOCAL lnDosyaSayisi, laDosyaListesi

 

lnDosyaSayisi = Set("Datasession")

? lnDosyaSayisi 

= AUsed(laDosyaListesi,1)

?Alen(laDosyaListesi) / 2

 

FOR lni = 1 TO (Alen(laDosyaListesi) / 2)

    ? laDosyaListesi[lni,1]

        IF Substr(laDosyaListesi[lni,1],1,2) # "CO"

            SELECT laDosyaListesi[lni,1]

            USE 

        ENDIF

ENDFOR

Sorunuma gelince; "CO" il başlamayan tüm table ları kapatmak istiyorum. Ancak local olarak array'ı tanımladığımda hata veriyor.

Visual Fox Pro
LOCAL lnDosyaSayisi, laDosyaListesi

Satırını kaldırdığımda hata almıyorum;  laDosyaListesi 'ni Local olarak tanımladığımda hata alıyorum. Local kısmında laDosyaListesi değişkenşni hiç kullanmamalıyım?

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ü

2 Cevaplayan ugurlu2001

  • ugurlu2001
  • ugurlu2001
  • Uzman Üye
  • Offline
  • Yer: Istanbul
  • Kayıt Tarihi: 11.10.2006
  • İleti: 1,642

Re: AUSED() Hakkında?

Biraz uydurma bir çözüm oldu ama :

Visual Fox Pro
LOCAL lnDosyaSayisi

LOCAL ARRAY laDosyaListesi[1,2]

 

lnDosyaSayisi = Set("Datasession")

? lnDosyaSayisi 

= AUsed(laDosyaListesi,1)

?Alen(laDosyaListesi) / 2

 

FOR lni = 1 TO (Alen(laDosyaListesi) / 2)

    ? laDosyaListesi[lni,1]

        IF Substr(laDosyaListesi[lni,1],1,2) # "CO"

            SELECT laDosyaListesi[lni,1]

            USE 

        ENDIF

ENDFOR

 

RETURN
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ü

3 Cevaplayan cetinbasoz

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: AUSED() Hakkında?

Visual Fox Pro
Local lnI

Local Array laDosyaListesi[1]

For lnI = 1 To Aused(laDosyaListesi)

    If Upper(Left(laDosyaListesi[m.lni,1],2)) # "CO"

        Use In (laDosyaListesi[m.lni,1])

    Endif

Endfor

cetinbasoz's Website