1 Konuyu açan tarik

  • tarik
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 13.09.2006
  • İleti: 285

Konu: array

Herkese merhabalar,
aşağıdaki gibi bir kodum var ,

SELECT SUM(miktaru) FROM crsgunrap WHERE kodismer="D100" INTO ARRAY arrprs
thisform.text3.Value = arrprs

array de değer olmadığı zaman

variable arrprs is not found

hatası veriyor

SELECT SUM(miktaru) FROM crsgunrap WHERE kodismer="D100" INTO ARRAY arrprs
IF arrprs = 0
MESSAGEBOX("D100 nolu bölüm için kayıt bulunamadı",64,"Uyarı")
thisform.text3.Value = arrprs
ENDIF

böyle bişey denedim ama olmadı,

toplam sonucunda değer yoksa uyarı mesajı vermesini nasıl sağlarım, yardımlarınız için şimdiden teşekkür ederim.

Kader, beyaz kağıda sütle yazılmış yazı
Elindeyse beyazdan, gel de sıyır beyazı. (NFK)

2 Cevaplayan ugurlu2001 Son düzenleyen, ugurlu2001 (24.09.2007 16:15:28)

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

Re: array

Array yerine CURSOR kullanabilirsin.

Visual Fox Pro
SELECT SUM(miktaru) AS MyField FROM crsgunrap WHERE kodismer="D100" INTO Cursor arrprs

 

thisform.text3.Value = arrprs.MyField

 

IF ISNULL(MyFied) && Hesaplama NULL döndürdü.

 * Yapilmasini istediklerin

ELSE

 * Yapilmasini istediklerin

ENDIF
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 ercan Son düzenleyen, ercan (24.09.2007 16:37:19)

  • ercan
  • Uzman Üye
  • Offline
  • Yer: adana
  • Kayıt Tarihi: 07.10.2006
  • İleti: 203

Re: array

SELECT SUM(miktaru) FROM crsgunrap WHERE kodismer="D100" INTO ARRAY arrprs
IF isnull(arrprs)
MESSAGEBOX("D100 nolu bölüm için kayıt bulunamadı",64,"Uyarı")
return
else
thisform.text3.Value = arrprs
ENDIF

dene bakalım.

4 Cevaplayan soykanozcelik

  • soykanozcelik
  • soykanozcelik
  • Uzman Üye
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,513

Re: array

tarik yazdı:

Herkese merhabalar,
aşağıdaki gibi bir kodum var ,

SELECT SUM(miktaru) FROM crsgunrap WHERE kodismer="D100" INTO ARRAY arrprs
thisform.text3.Value = arrprs

array de değer olmadığı zaman

variable arrprs is not found

hatası veriyor

SELECT SUM(miktaru) FROM crsgunrap WHERE kodismer="D100" INTO ARRAY arrprs
IF arrprs = 0
MESSAGEBOX("D100 nolu bölüm için kayıt bulunamadı",64,"Uyarı")
thisform.text3.Value = arrprs
ENDIF

böyle bişey denedim ama olmadı,

toplam sonucunda değer yoksa uyarı mesajı vermesini nasıl sağlarım, yardımlarınız için şimdiden teşekkür ederim.


Visual Fox Pro
external array arrPrs

SELECT SUM(miktaru) FROM crsgunrap WHERE kodismer="D100" INTO ARRAY arrprs

 

thisform.text3.Value = iif(_tally=0,0,arrprs[1,1])
https://www.twitter.com/soykanozcelik https://www.t.me/soykanozcelik https://soykanozcelik.wordpress.com

soykanozcelik's Website

5 Cevaplayan taRKan

  • taRKan
  • taRKan
  • Uzman Üye
  • Offline
  • Yer: Ankara
  • Kayıt Tarihi: 12.10.2006
  • İleti: 367

Re: array

Visual Fox Pro
ThisForm.Text3.Value = IIf(IsNull(arrprs), 0, arrprs[1,1])

Şeklinde de fena olmaz smile

/o---------------------o\
     www.haser.com
\o---------------------o/

taRKan's Website

6 Cevaplayan cetinbasoz

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

Re: array

Cevaplar VFP9 icin olmus ama sende daha oncesi var gibi:) İşi versiyon bağımsız sağlama bağla.

Visual Fox Pro
local array arrprs[1]

SELECT SUM(miktaru) FROM crsgunrap WHERE kodismer="D100" INTO ARRAY arrprs

if _Tally > 0 and !isnull(arrprs[1])

   thisform.text3.Value = arrprs

else

   thisform.text3.Value = 0

endif

cetinbasoz's Website

7 Cevaplayan soykanozcelik

  • soykanozcelik
  • soykanozcelik
  • Uzman Üye
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,513

Re: array

Gene VFP klasigi ya hic cozumu yok yada birden fazla smile

https://www.twitter.com/soykanozcelik https://www.t.me/soykanozcelik https://soykanozcelik.wordpress.com

soykanozcelik's Website

8 Cevaplayan tarik

  • tarik
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 13.09.2006
  • İleti: 285

Re: array

hepinize tek tek teşekkür ederim, nede çok çözüm yolu varmış smile

Kader, beyaz kağıda sütle yazılmış yazı
Elindeyse beyazdan, gel de sıyır beyazı. (NFK)

9 Cevaplayan foxman Son düzenleyen, foxman (25.09.2007 10:14:26)

  • foxman
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.03.2007
  • İleti: 142

Re: array

Visual Fox Pro
CALCULATE SUM(miktaru)  TO sum_miktaru FOR kodismer="D100" IN crsgunrap

 

thisform.text3.Value = sum_miktaru

10 Cevaplayan foxman

  • foxman
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.03.2007
  • İleti: 142

Re: array

Bildiğiniz birşeydir ama,

CALCULATE .... FOR kullanımında hesaplama hızı düşüktür diye şüpheniz olursa diye bir test yaptım.

Eğer uygun index varsa 22.000.000 kayıtlık (Gerçek Data içeren) bir table da for ve where aynı hızda çalışıyor.