o = CREATEOBJECT('pp')
o.show(1)

DEFINE CLASS pp AS form


    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"


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


    PROCEDURE Init
        WITH this
            .AddProperty('aa[6]')
            
          .aa[1]="sdsdsdsd"  
          .aa[2]=1233  
          .aa[3]=Date()  
          .aa[4]=.F.  
          .aa[5]=Datetime()  
          .aa[6]=$100

          CREATE CURSOR test (f1 i)
          
          FOR i = 1 TO ALEN(.aa)
              INSERT INTO test VALUES (i)
          ENDFOR 
          GO TOP IN test
          
        ENDWITH 
          


        WITH this.grid1
            .columncount = 2
            .recordsource = 'test'
            .column2.controlsource = ('thisform.aa(test.f1)')
            .column2.sparse = .f.
        ENDWITH 
    ENDPROC


ENDDEFINE

Dimension aa[6]

aa[1]=1233
aa[2]="sdsdsdsd"
aa[3]=Date()
aa[4]=.F.
aa[5]=Datetime()
aa[6]=$100

Create Cursor test (i i null)
For i=1 to Alen(aa,1)
    Insert into test values (.null.)
Next
Go top

With CreateObject("MyForm")
    .Show(1)
EndWith


Define Class MyForm as Form

    Add Object Grid as grid 
    
    
    Procedure Init
    With this
        .Grid.RecordSource="test"
        .Grid.ColumnCount=1
        .Grid.Columns[1].ControlSource="(aa[Recno()])"
*       .Grid.Columns[1].Alignment=3
        .Resize        
    EndWith

    Procedure Resize
    With this
        .Grid.Width=.Width
        .Grid.Height=.Height
    EndWith

EndDefine