1 Konuyu açan tarik

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

Konu: boş fieldlere değer atama

herkese merhabalar,

Visual Fox Pro
CREATE CURSOR deneme ( cari c(10),stokkod c(10))

INSERT INTO deneme  VALUES ("A12240","B77060")

INSERT INTO deneme  VALUES ("","B77065")

INSERT INTO deneme  VALUES ("","B77063")

INSERT INTO deneme  VALUES ("A11120","B78080")

INSERT INTO deneme  VALUES ("","B78089")


bu şekildeki bir table da boş olan cari alanlarına bir üstteki cari değerini nasıl yazdırırım.
yani şu şekilde olması gerekiyor

Visual Fox Pro
CREATE CURSOR deneme ( cari c(10),stokkod c(10))

INSERT INTO deneme  VALUES ("A12240","B77060")

INSERT INTO deneme  VALUES ("A12240","B77065")

INSERT INTO deneme  VALUES ("A12240","B77063")

INSERT INTO deneme  VALUES ("A11120","B78080")

INSERT INTO deneme  VALUES ("A11120","B78089")
Kader, beyaz kağıda sütle yazılmış yazı
Elindeyse beyazdan, gel de sıyır beyazı. (NFK)

2 Cevaplayan metin Son düzenleyen, metin (24.08.2009 15:45:52)

  • metin
  • metin
  • Uzman Üye
  • Offline
  • Yer: istanbul
  • Kayıt Tarihi: 16.10.2006
  • İleti: 1,460

Re: boş fieldlere değer atama

slm,

Visual Fox Pro
scat to ust

skip

scat to alt

for i=1 to alen(ust)

    if empt(alt(i))

        repl (fiel(i)) with ust(i)

    endif

next
Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

metin's Website

3 Cevaplayan tarik

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

Re: boş fieldlere değer atama

olmadı

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

4 Cevaplayan metin

  • metin
  • metin
  • Uzman Üye
  • Offline
  • Yer: istanbul
  • Kayıt Tarihi: 16.10.2006
  • İleti: 1,460

Re: boş fieldlere değer atama

olması lazım. eğer sadece 2 field varsa daha da kolay.

Visual Fox Pro
if empt(cari)

skip-1

if !bof()

xcari=cari

skip

repl cari with xcari

endif

endif
Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

metin's Website

5 Cevaplayan metin

  • metin
  • metin
  • Uzman Üye
  • Offline
  • Yer: istanbul
  • Kayıt Tarihi: 16.10.2006
  • İleti: 1,460

Re: boş fieldlere değer atama

tabii scan...endscan ile taramalısın tabloyu.

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

metin's Website

6 Cevaplayan cetinbasoz Son düzenleyen, cetinbasoz (24.08.2009 19:11:02)

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

Re: boş fieldlere değer atama

Visual Fox Pro
Use Dbf('deneme') In 0 Again Alias T2

 

Set Relation To Recno()-1 Into T2 IN 'Deneme'

Replace cari With T2.cari For Empty(cari) IN 'deneme'

cetinbasoz's Website

7 Cevaplayan tarik

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

Re: boş fieldlere değer atama

her 2 yollada sorun çözüldü, ilginize çok teşekkür ederim

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