解决delphi的 dbgrid在读取access文本型字段显示TWideMemoField的问题

Posted 2020-09-05

原文：http://www.makaidong.com/%E5%8D%9A%E5%AE%A2%E5%9B%AD%E7%9F%A5%E8%AF%86%E5%BA%93/22028.shtml

"解决delphi的 dbgrid在读取access文本型字段显示TWideMemoField的问题"：

 

关键词：解决 delphi dbgrid 读取 access 文本 型 字段 显示 twidememofield 问题

 

 

如题：delphi 的dbgrid在读取access文本型字段会显示twidememofield。

这个问题是由数据类型引出， delphi的内置机制处理，所以解决问题方法有三种

1，换一个控件，可以读取文本字段的，本文不作考虑。

2，网上有个方法是说修改settext事件，给网格重新赋值，简单测试后无果，本人对 delphi的确是半瓶子醋：晃荡。

3，本人测试有效的方法就是修改adoquery。

     双击adoquery控件，弹出字段操作窗体，新加一个自定义字段如 memo2.（原始memo 字段本文假定为memo）。

     

procedure tsendlist.adoquery2calcfields(dataset: tdataset);
begin
adoquery2.fieldbyname(‘sendmsg2‘).asstring:=  adoquery2.fieldbyname(‘sendmsg‘).asstring;

end;

　如上代码所示，在adoquery 的calcfieds代码给新建的字段赋值。

   在 dbgrid 的cloums属性里选择显示新加的字段memo2。

   如此即可ok。

   其实以上解决思路在其他的开发环境里基本也同样适用。在你的数据源的字段列表里如果无法满足你的实际要求，那么就自定义添加一个字段来显示。引申开来，比如说

本行数据显示的是1到12月份的每个月销量，那么我们可以做出第13个字段来进行数据汇总。

 

 

搜索此文相关文章：解决delphi的 dbgrid在读取access文本型字段显示TWideMemoField的问题