1 Konuyu açan ugurlu2001

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

Konu: AUSED() Hakkında?

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

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

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
1

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?

Son düzenleyen, ugurlu2001 (22.06.2009 16:27:18)

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
  • Üye
  • Offline
  • Yer: Istanbul
  • Kayıt Tarihi: 11.10.2006
  • İleti: 1,051

Re: AUSED() Hakkında?

Biraz uydurma bir çözüm oldu ama :

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

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
  • Moderatör
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 2,314

Re: AUSED() Hakkında?

Visual Fox Pro
1

2

3

4

5

6

7

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
Yen yaz 1907'ye yolla FB gelsin evinde yensin.
(sonra salaklar ciksin alin terine şike desin)

cetinbasoz's Website