Konu: gridx.vcx property
selamlar;
gridx.vcx kullanıyorum bu kodun her form açılışında çalışmasını istiyorum. classs da hangi property i kullanabilirim.
Lparameters LcgiridAdi,PARAM2,PARAM3,PARAM4
If !Empty(LcgiridAdi)
Local Lcgrid,currrow
Lcgrid="Thisform."+LcgiridAdi
currrow=1
Lcfile=&Lcgrid..RecordSource
Lcsonno=Lcgrid+".ColumnCount"
Select &Lcfile
Scan
currrow=currrow+1
For i=1 To &Lcsonno
Lckolon=Lcgrid+".Columns["+Trans(m.i)+"].ControlSource"
cval=&Lckolon
Lcara=&cval
Do Case
Case Vartype(Lcara)='N'
Lcsonuc=Lcgrid+".Columns["+Trans(m.i)+"].InputMask"
Lcsonuc = Lcsonuc + "='99,999,999.99'"
&Lcsonuc
Lcsonuc1=Lcgrid+".Columns["+Trans(m.i)+"].Format"
Lcsonuc1 = Lcsonuc1 + "='99,999,999.99'"
&Lcsonuc1
Lcsonuc3=Lcgrid+".Columns["+Trans(m.i)+"].Alignment"
Lcsonuc3 = Lcsonuc3 + "=1"
&Lcsonuc3
Endcase
Endfor
Endscan
Endif