>recordtype=alias (I also tried 'table') >recordsource = CURS_MATRIX >>
>INIT >DODEFAULT() >thisform.CreateMatrixCursor() >thisform.grdMatrix.Refresh() > >CREATEMATRIXCURSOR >ADIR(laMatrix,'c:\agri\poult\excel spreadsheets\agri????.xls') > >CREATE CURSOR CURS_MATRIX (cu_fname c (15)) > >APPEND FROM ARRAY laMatrix > >ALTER table CURS_MATRIX ADD cu_lupd L >>
oForm = Createobject('MyForm') oForm.Show Read Events Define Class myForm As Form Add Object myGrid As Grid Procedure myGrid.Init Local Array laMatrix[1] ADIR(laMatrix,'c:\agri\poult\excel spreadsheets\agri????.xls') Create Cursor CURS_MATRIX (cu_fname c (15), cu_lupd L) Append From Array laMatrix Fields cu_fname Locate This.RecordSource='CURS_MATRIX' This.ColumnCount = 2 With This.Columns(2) .AddObject('chkFile','Checkbox') .CurrentControl = 'chkFile' .Sparse = .F. .Width = 20 With .chkFile .Caption='' .Visible = .T. Endwith Endwith Endproc Procedure QueryUnload Clear Events Endproc EnddefineCetin