Konu: string is too long to fit
Local kural1,kural,t1,t2,t3,t4,t5
thisform.sart=0
If !Empty(thisform.container2.text1.Value)
thisform.sart=thisform.sart+1
Else
* thisform.sart=thisform.sart-1
Endif
If !Empty(thisform.container2.text2.Value)
thisform.sart=thisform.sart+1
Else
* thisform.sart=thisform.sart-1
Endif
If !Empty(thisform.container2.text3.Value)
thisform.sart=thisform.sart+1
Else
* thisform.sart=thisform.sart-1
Endif
If !Empty(thisform.container2.text4.Value)
thisform.sart=thisform.sart+1
Else
* thisform.sart=thisform.sart-1
Endif
wait window thisform.sart nowa
kural1= " "
kural="* from kushasta where "
If thisform.container2.optiongroup1.Value=2
If thisform.sart=1
If !Empty(thisform.container2.text1.Value)
kural1=" upper(chrtran(alltrim(thisform.container2.text1.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(Alltrim(cins),'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
Endif
If !Empty(thisform.container2.text2.Value)
kural1=" upper(chrtran(alltrim(thisform.container2.text2.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(Alltrim(sistem),'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
Endif
If !Empty(thisform.container2.text3.Value)
kural1=" upper(chrtran(alltrim(thisform.container2.text3.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(alltrim(bulgu), 'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
Endif
If !Empty(thisform.container2.text4.Value)
kural1=" upper(chrtran(alltrim(thisform.container2.text4.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(Alltrim(nedenler),'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
Endif
Endif
If thisform.sart>1
If !Empty(thisform.container2.text1.Value)
kural1=" upper(chrtran(alltrim(thisform.container2.text1.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(Alltrim(cins),'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
Else
kural1="cins=''"
Endif
If !Empty(thisform.container2.text2.Value)
kural1=kural1+" or upper(chrtran(alltrim(thisform.container2.text2.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(alltrim(bulgu), 'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
else
* kural1="sistem='.f.'"
Endif
If !Empty(thisform.container2.text3.Value)
kural1=kural1+" or upper(chrtran(alltrim(thisform.container2.text3.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(alltrim(bulgu), 'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
Endif
If !Empty(thisform.container2.text4.Value)
kural1=kural1+" or upper(chrtran(alltrim(thisform.container2.text4.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(alltrim(bulgu), 'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
Endif
endif
Else
If thisform.sart=1
If !Empty(thisform.container2.text1.Value)
kural1=" upper(chrtran(alltrim(thisform.container2.text1.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(Alltrim(cins),'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
Endif
If !Empty(thisform.container2.text2.Value)
kural1=" upper(chrtran(alltrim(thisform.container2.text2.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(Alltrim(sistem),'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
Endif
If !Empty(thisform.container2.text3.Value)
kural1=" upper(chrtran(alltrim(thisform.container2.text3.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(alltrim(bulgu), 'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
Endif
If !Empty(thisform.container2.text4.Value)
kural1=" upper(chrtran(alltrim(thisform.container2.text4.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(Alltrim(nedenler),'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
Endif
Endif
If thisform.sart>1
If !Empty(thisform.container2.text1.Value)
kural1=" upper(chrtran(alltrim(thisform.container2.text1.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(Alltrim(cins),'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
Else
kural1="cins=''"
Endif
If !Empty(thisform.container2.text2.Value)
kural1=kural1+" AND upper(chrtran(alltrim(thisform.container2.text2.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(alltrim(sistem), 'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
else
* kural1="sistem='.f.'"
Endif
If !Empty(thisform.container2.text3.Value)
kural1=kural1+" AND upper(chrtran(alltrim(thisform.container2.text3.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(alltrim(bulgu), 'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
Endif
If !Empty(thisform.container2.text4.Value)
kural1=kural1+" AND upper(chrtran(alltrim(thisform.container2.text4.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(alltrim(nedenler), 'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
Endif
Endif
Endif
If thisform.sart=0
kural="* from kushasta "
Else
kural=kural+kural1
Endif
wait window kural1
thisform.multiselectgrid1.csql=kural
thisform.multiselectgrid1.reloadcursor
if thisform.sart=0
kural="* from kushasta "
Endif
thisform.sart=0
thisform.Refresh
bu kodun bu bölünü çalıştığında
If thisform.sart>1
If !Empty(thisform.container2.text1.Value)
kural1=" upper(chrtran(alltrim(thisform.container2.text1.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(Alltrim(cins),'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
Else
kural1="cins=''"
Endif
If !Empty(thisform.container2.text2.Value)
kural1=kural1+" or upper(chrtran(alltrim(thisform.container2.text2.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(alltrim(bulgu), 'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
else
* kural1="sistem='.f.'"
Endif
If !Empty(thisform.container2.text3.Value)
kural1=kural1+" or upper(chrtran(alltrim(thisform.container2.text3.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(alltrim(bulgu), 'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
Endif
If !Empty(thisform.container2.text4.Value)
kural1=kural1+" or upper(chrtran(alltrim(thisform.container2.text4.Value), 'ğüşıöçi', 'ĞÜŞIÖÇİ')) $upper(Chrtran(alltrim(bulgu), 'ğüşıöçi', 'ĞÜŞIÖÇİ'))"
Endif
endif
string is too long to fit hata mesajı alıyorum kodu bir türlü kısaltamadım yardım lütfen
sistem VFP9 SP1