These are all workarounds. I don't want a workaround. I don't want the text in the memo field expanded. I want the default behavior where it says 'Memo' in the column.

Is this a bug in the behavior of the grid or is there something I don't understand?

Where's The Man? Sergey?

>What about just putting a button in the grid with "Memo" on it for each record that has value in the memo field? When it is clicked, you send the keyboard commands for Ctrl-Home. Not sure if the last part works or not, but you could pop-up another form that displays the memo contents.
>
>>I'm sure that this has been discussed before, but because I'm poor and my company won't pay for a UT membership I've got to post this question.
>>
>>When I have a plain old simple grid and bind it to a table with memo fields the grid columns have what I want and that is 'Memo' and the user can ctrl-home or dblclick to view the contents.
>>
>>But, when I dynamically bind the grid columns the columns do not appear as 'Memo', but have the memo data expanded and the column becomes ridiculously long.
>>
>>I'm using autofit. A table called gridbindings controls the grid. The grid class has 50 columns and each column has the methods needed for dblclicking, etc. I delete the extra columns at the end. The code is as follows for a custom method called bindgrid in grid class:
>>
>>***Sorry about the formating. I don't know what this thing needs to look pretty
>>
>>ii=0
>>select qgridbindings
>>scan
>> ii = ii + 1
>> with this.columns[m.ii]
>> .controlsource = alltrim(qgridbindings.fieldname)
>>
>> if '.' $ .controlsource
>> llisMemo = (type(.controlsource) =='M') &&need to use type() and not vartype()
>> else
>> llisMemo = (type(this.RecordSource + '.' + .controlsource) =='M')
>> endif
>>
>> .addproperty("csortindex","")
>> if qgridbindings.sortable and not m.llisMemo
>> select (this.RecordSource)
>> lcIndexOn = .controlsource
>> lcTag = iif(len(.controlsource) > 10,sys(2015),.controlsource)
>> try &&just ignore when it tries to index on a memo or blob or other index error
>> index on &lcIndexOn tag &lcTag
>> .csortindex = m.lcTag
>> set order to
>> catch
>> finally
>> endtry
>> endif
>>
>> if empty(qgridbindings.heading)
>> .header1.caption = proper(qgridbindings.fieldname)
>> else
>> .header1.caption = alltrim(qgridbindings.heading)
>> endif
>>
>> if not empty(qgridbindings.format)
>> .format = alltrim(qgridbindings.format)
>> else
>> .format = 'K'
>> endif
>>
>> .header1.Alignment= 1
>> .text1.alignment = 3
>>
>> if qgridbindings.width > -1 &&-1 is the default which means leave it alone
>> .width = qgridbindings.width
>> endif
>>
>> endwith
>>endscan
>>
>>do while this.ColumnCount > m.ii
>> this.DeleteColumn()
>>enddo