>PUBLIC oform1 > >oform1=NEWOBJECT("form1") >oform1.Show >RETURN > > > ************************************************** >*-- Form: form1 (c:\program files\microsoft visual foxpro 9\test.scx) >*-- ParentClass: form >*-- BaseClass: form >*-- Time Stamp: 01/30/07 10:12:09 PM >* >DEFINE CLASS form1 AS form > > > Top = 6 > Left = 89 > DoCreate = .T. > Caption = "Form1" > Name = "Form1" > > > ADD OBJECT grid1 AS grid WITH ; > ColumnCount = 4, ; > Height = 214, ; > Left = 12, ; > Top = 13, ; > Width = 326, ; > Name = "Grid1", ; > Column1.ControlSource = "crsTest.Fld1", ; > Column1.Name = "Column1", ; > Column2.ControlSource = "crsTest.Fld2", ; > Column2.Name = "Column2", ; > Column3.ControlSource = "crsTest.Fld3", ; > Column3.Name = "Column3", ; > Column4.ControlSource = "((crsTest.Fld2*crsTest.Fld3))", ; > Column4.Name = "Column4" > > > > PROCEDURE Load > CREATE CURSOR crsTest (Fld1 Int, Fld2 N(14,2), Fld3 N(14,2)) > FOR asd = 1 TO 20 > INSERT INTO crsTest VALUES (asd, asd%9, asd^2) > NEXT > GO TOP > ENDPROC > > >ENDDEFINE >* >*-- EndDefine: form1 >************************************************** >>