PUBLIC o
o = CREATEOBJECT('CheckInGrid')
o.show( 1 )

DEFINE CLASS checkingrid AS form


	Top =  0 
	Left =  0 
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT grid1 AS grid WITH ;
		Height =  229 , ;
		Left =  12 , ;
		Top =  12 , ;
		Width =  349 , ;
		Name = "Grid1"


	PROCEDURE Load
		CREATE CURSOR test (A i, B i)

		INSERT INTO test (A,B) VALUES ( 1 , 0 )
		INSERT INTO test (A,B) VALUES ( 2 , 1 )
		GO TOP IN test 

		SET MULTILOCKS ON 

		CURSORSETPROP("Buffering" , 5 , 'test' )
	ENDPROC


	PROCEDURE Init
		WITH this.grid1
			.recordsource = 'test'
			.columncount =  2 
			.column1.controlsource = 'test.A'
			.column2.addobject('Check1','checkbox')
			.column2.currentcontrol = 'Check1'
			.column2.check1.visible = .t.
			.column2.sparse = .f.
		ENDWITH 
	ENDPROC


ENDDEFINE

WITH thisform.Grid1.Column2 && что это, почему возникла вторая колонка, хотя грид определен с одной колонкой 
	.Header1.Caption = "Отчёт" 
	.ControlSource   = 'mnt' && а это что за зверь
	.Width =  50 	
ENDWITH