我用DBGrid 显示看不到内容,看到的是(MEMO1)

解决方案 »

  1.   

    在网格边上单独放个memo,用了显示数据库中的memo内容
      

  2.   

    可以自己自画出来,或者用dx或cx或ehlib
      

  3.   

    老问题了。现在一般都用cxgrid。但针对DBGrid写些代码也可以实现。
    在DBGrid的缺省显示方式下,备注类型的字段将显示成“(MEMO)”的形式。
    解决方案:
        为了能够使得数据被实际显示出来,我们需要写一些代码,对DBGrid做一点功能上的增强。首先,我们要先在数据库中建立一张表,命名为TestTable,这张表中至少要有一个MEMO类型的字段,把它命名为Data。然后我们来给字段的OnGetText事件写一段代码实现上面的需求。操作步骤如下:    1. 把你的TDataset组件与刚才新建的数据库中的TestTable表相连接。  2. 双击TDataset组件来打开字段编辑器(Fields editor)。  3. 添加MEMO字段Data.  4. 选中该字段,在对象检查器中(Object Inspector)双击OnGetText事件建立事件句柄。   编写代码如下:   procedure TForm1.DBTableDataGetText(Sender: TField;
       var Text: String;
       DisplayText: Boolean);
       begin
         Text := Copy(DBTableData.AsString, 1, 50);
       end;
      
       TDataset对象的名字是“DBTable”,MEMO字段的名字是“Data”,因此缺省情况下连接到MEMO字段的TMEMOField名字是“DBTableData”。我们在代码中告诉DBGrid将MEMO字段显示成文本方式,就是把实际的内容显示出来。这里有一个值得注意的地方,因为MEMO字段可以容纳比较多的文本,在DBGrid中全部显示出来的话,DBGrid就会被撑得很大,所以我们做了限制,只是把MEM O中的前50个字符显示出来。   显示的工作完成之后,如果还想对显示出来的文本进行编辑,这在缺省状态下是不可以实现的,我们准备另建一个窗体,在上面放置一个DBMemo组件,用它来对文本进行编辑,思考到这里还有一个需要解决的问题,如何来触发一次编辑过程呢?就用键盘的回车键吧,当记录指针指向这条记录时,按下回车键,则弹出一个窗体,上面的DBMemo组件可以显示并且编辑文本。实现代码如下:procedure TForm1.DBGrid1KeyDown(
     Sender: TObject; 
     var Key: Word;
     Shift: TShiftState);
     begin
      //如果按下的是回车键则触发下面的代码
      if Key = VK_RETURN then
      begin
       if DBGrid1.SelectedField = DBTableData then
        //建立新的窗体
        with TMemoEditorForm.Create(nil) do
        try
         //读取数据库中的数据用DBMemo来显示
         DBMemoEditor.Text := DBTableData.AsString;
         ShowModal;
         DBTable.Edit;
         DBTableData.AsString := DBMemoEditor.Text;
        finally
         Free;
        end;
      end;
     end;
      

  4.   

    procedure Tfrm_main.qry_testDescriptionGetText(Sender: TField;
      var Text: String; DisplayText: Boolean);
    begin
      text:=qry_test.fieldbyname('Description').asstring;
    end;
      

  5.   


    顶,数据移动时,同步更新Memo的内容,由于Memo有滚动条,所以可充分显示超大内容。如果放在网格的一个单独的列中,显然是做不到这一点