显示不了数据

Question

memo1.lines.text:=datamodulemis.ADOQueryyg.FieldByName( '备注 ').asstring; 

Answer 1

你的做法只会显示第一条记录的“备注”，问题所在在于没有刷新界面。如果第一条记录记录是空的，就好像看不到备注内容。
解决方法有两种：
1、记录移动时，刷新显示。
procedure TFmXXX.OnShowRecord(sender: TDataSet);
begin
  memo1.Text:= ADODataSet1.FieldByName('备注').asstring;
  ...
end;//记录移动时，需要刷新界面
procedure TFmXXX.FormShow(Sender: TObject);
begin
  ...
  datamodulemis.ADOQueryyg.Open;
  datamodulemis.ADOQueryyg.AfterScroll := OnShowRecord;
end;2、查询时就对数据进行转换，在DBGrid里显示就没有问题。
select ...,cast(yg.bz as varchar) as '备注'...