Procedure grdBrowseTable.Init * -------------- ---- This.RecordSource = cTableAlias For I = 1 To This.ColumnCount BindEvent (This.Columns(I).Text1, "DblClick" , ThisForm, "grdBrowseTable_DblClick" ) EndFor EndProc Procedure grdBrowseTable_DblClick * -------------- -------- Local cVar cVar = Thisform.grdBrowseTable.Columns(Thisform.grdBrowseTable.ActiveColumn).Text1.Value MessageBox (VarType (cVar)) EndProcWhen double clicking over a memo field it returns "C", so I can't know if it is a memo field, Character, Varchar or Varchar (Binary).