Konuka ,
Ekledim ama sonuç alamadım ?
-------------------------------------------------------------------------
******************************************************************
Define Class myGrid as Grid
******************************************************************
* Top = 62
Top = 335
Left = 2
Height = 310
Width = 1335
ColumnCount = 24
DeleteMark = .t.
RecordMark = .t.
ReadOnly = .T.
RecordSource = "kon9"
ScrollBars = 3
GridLineColor = Rgb(192,192,192)
* BackColor = 255
Procedure Init
With this
* Scatter Name This.oRecord Memo
.Column1.Header1.Caption = 'Yazdır'
.Column1.Width = 50
.Column1.ControlSource = "kon9.yazici"
.Column1.AddObject("chk1", ;
"checkbox")
.Column1.CurrentControl = ;
"chk1"
.Column1.chk1.Visible = .T.
.Column1.chk1.Caption = ""
.Column1.sparse=.f.
.Column1.Chk1.Enabled=.T.
.Column6.Header1.Caption = 'Çıkış Tarihi'
.Column6.Width = 90
.Column6.ControlSource = "kon9.ciktar"
EndWith
this.SetAll('Enabled',.F.,'textbox')
this.SetAll('DisabledForeColor',0,'textbox')
EndProc
Procedure AfterRowColChange
Lparameters nColIndex
DoDefault(nColIndex)
With oForm
SELE 4
* gkod=.txtNo.Value
myGrid.Column1.Chk1.Enabled=(kon9.ciktar=CTOD(" / / "))
.txt2Sno.Value = Sno
EndWith
Thisform.Refresh()
EndProc
******************************************************************
PROCEDURE Click
******************************************************************
With this
sele 4
sakla2=RECNO()
GO TOP
COUNT TO .txt2topyazdir.Value FOR yazici=.T.
GO sakla2
EndWith
Thisform.Refresh()
ENDPROC
EndDefine