* INIT Event WITH thisform.Pageframe1.Page1.grdCuslot .RecordSource = "cuslot" .ReadOnly = .T. .DeleteMark = .F. .GridLines = 3 .HighlightStyle=1 .HighlightBackColor=RGB(233,210,255) .HighlightForeColor=RGB(0,0,0) .Column1.ControlSource="cuslot.cuslotno" .Column1.Header1.Alignment = 2 .Column1.BackColor =RGB(196,255,196) .Column1.Header1.Caption="Lot No." .Column1.Header1.FontBold =.T. .Column1.Header1.FontItalic = .T. .Column1.Width = 120 .Column2.ControlSource="cuslot.itmcode" .Column2.ReadOnly=.T. Column2.Header1.Caption="Item Code" .Column2.Header1.FontBold =.T. .Column2.Header1.FontItalic = .T. .Column2.Width = 100 .Column3.ControlSource="cuslot.packing" .Column3.Alignment = 2 .Column3.Header1.Caption="Packing" .Column3.Width = 90 ENDWITH