Hi everybody,

I have a grid on the pageframe (page2).

None of the properties for this grid is set.

This is the code in Page.Activate

WITH this.grdRules as my_grid of my_class.vcx
   .RecordSource = 'DedupRules'
   .RecordSourceType = 1
   .ColumnCount = 4
   .Columns[1].ControlSource = 'DedupRules.RuleDescription' 
   .Columns[1].Header1.Caption = 'Description'
   .Columns[2].ControlSource = [(ALLTRIM(LEFT(DedupRules.Statement,240)) + '...')]
   .Columns[2].Header1.Caption = 'Statement'
   .Columns[3].ControlSource = 'DedupRules.AppliesTo'
   .Columns[3].Header1.Caption = 'Applies To'
   .Columns[3].RemoveObject('text1')
   .Columns[3].AddObject('cboAppliesTo','combobox')  
   .Columns[3].cboAppliesTo.RowSource = 'Guests,Accounts'
   .Columns[3].Sparse = .f.
   .Columns[3].cboAppliesTo.RowSourceType = 1 && Value
   .Columns[4].ControlSource = 'DedupRules.CreatedOn'
   .Columns[4].Header1.Caption = 'Created On'
   .Columns[4].ReadOnly = .t.   
   .Visible = .t.
   .AutoFit() 
   ENDWITH
   this.edtStatement.ControlSource = 'DeDupRules.Statement'

With this code the first column appears blank. It looks like a cursor is at the end of the field. I tried moving focus to a different than grid object, but it didn't help.

Do you see what I am missing here?

Also, two of the columns I can not see. Is there a way to automatically set columns to be inside the width of the grid?

Thanks in advance.