dxDbgrid修改dxGrExpt以导出text类型字段的数据
TdxDBGridExportExcel = class(TdxDBGridExport)
…………………
procedure DoWriteRecord(Node: TdxTreeListNode); override;
if Node = nil then
begin
//+++
if DataType = ftMemo then
S:=AsString
else
//+++
S := DisplayText
end
else
S := TdxDBGridNode(Node).Strings[Columns[VisColIndexes[i]].Index];
酒肉穿肠过
佛祖心中留
世人若学我
如同入魔道