Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Kodlama ve Komutlar » & kullanımı ?
For i=1 To 14
lctxt="txtbase"+Alltrim(Str(i))+".value"
If !Empty(&lctxt)
Wait Window &lctxt
Endif
Endfor
form da bulunan textbox ların değerlerini boş olup olmadığını döngü içinde kontrol etmek ve kullanmak istiyorum.
ancak If !Empty(&lctxt) satırında Alias 'Txtbase1' is not found hatası alıyorum.
For i=1 To 14
lctxt="txtbase"+Alltrim(Str(i))+".value"
If !Empty(&lctxt)
Wait Window &lctxt
Endif
Endforform da bulunan textbox ların değerlerini boş olup olmadığını döngü içinde kontrol etmek ve kullanmak istiyorum.
ancak If !Empty(&lctxt) satırında Alias 'Txtbase1' is not found hatası alıyorum.
For i=1 To 14
lctxt="txtbase"+Alltrim(Str(i))+".value"
If !Empty(m.lctxt)
Wait Window m.lctxt
Endif
Endfor
ÜSTAD
m.lctxt bana 'Txtbase1.value' döndürüyor. Ben değerini istiyorum. textbox a kullanıcının yazdığı bilgiyi istiyorum.
o zaman formu referans gostererek seklinde kullansan
For i=1 To 14
lctxt="thisform.txtbase"+Alltrim(Str(i))+".value"
If !Empty(m.lctxt)
Wait Window m.lctxt
Endif
Endfor
local i
For i=1 To 14
with getpem(thisform,"txtbase"+Alltrim(Str(m.i)) )
If !Empty(.Value)
Wait Window .Value
Endif
endwith
Endfor
Ya da:
with eval("thisform.txtbase"+Alltrim(Str(m.i)) )
harikasınız teşekkür ederim. sağolun
fox4um » Kodlama ve Komutlar » & kullanımı ?