The Grid.Init() coding is for setting up font size, color, etc.

RecordSource is not assigned in the design. Cursor is created prior to assignment of the recordsource. Form.Init() looks like this:

create cursor CurWhs1 (cWarehouse c(10), nonhand n(16, 4))
with Thisform.EgrdWhs
	.RecordSource = "CurWhs1"
	.GrcWarehouse.Text1.InputMask = replicate("!", 10)
	.GrcOnHand.ControlSource = "str(CurWhs1.nOnHand, 17, Icitem.nQtyDec)"
endwith