<![CDATA[Fox4um - AUSED() Hakkında?]]> 2009-06-22T17:18:37Z PunBB http://www.fox4um.com/topic/1266/aused-hakkinda/ <![CDATA[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
]]> http://www.fox4um.com/user/11/ 2009-06-22T17:18:37Z http://www.fox4um.com/post/7677/#p7677 <![CDATA[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
]]> http://www.fox4um.com/user/30/ 2009-06-22T14:33:23Z http://www.fox4um.com/post/7675/#p7675 <![CDATA[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?

]]> http://www.fox4um.com/user/30/ 2009-06-22T14:26:08Z http://www.fox4um.com/post/7674/#p7674