replace icin kolay, skollbeyaz'in yazdigi gibi. Objeler icin is biraz farkli:
with _screen.forms(2).pageframe1.page3
.text9.value=st_sat
.text9.value=st_sat8
endwith
Diycem ama ikisi de text9 value'yu degistiriyor:) Tabii hic degistirmesi de gerekmeyebilir eger Controlsource olarak atarsan. Ornegin:
Visual Fox Pro
* from.init
this.addproperty("oRecord", createobject('empty'))
addproperty(this.oRecord, 'st_sat')
addproperty(this.oRecord, 'st_sat8')
with _screen.forms(2).pageframe1.page3
.text8.controlsource ="thisform.oRecord.st_sat"
.text9.controlsource ="thisform.oRecord.st_sat8"
endwith
Bir baska ornek (coklu icin):
with thisform.pageFrame1.page3
store .f. to .txt1.Enabled, txt2.enabled, .txt3.Enabled
endwith
Bu arada:
replace f1 with m.y
replace f2 with m.z
replace f3 with f1*f2 && m.y * m.z
yerine:
replace f1 with m.y, f2 with m.z, f3 with f1*f2
hem gecerli hem daha hizli (Update icin de gecerli).