Delphi 实现改变 cxGrid某列的显示值

procedure TSuppliersListForm.cxGrid1DBTableView1Column1GetDataText(

 Sender: TcxCustomGridTableItem; ARecordIndex: Integer;

 var AText: String);

var

 sid:string;

begin

 if varToStr(Sender.GridView.ViewData.Records[ARecordIndex].Values[10])<>'' then

 begin

   sid := Sender.GridView.ViewData.Records[ARecordIndex].Values[10];

   MyQuery.SQL.Clear;

   MyQuery.SQL.Add('select * from part where id in('+sid+')');

   MyQuery.Open;

   while not MyQuery.Eof do

   begin

     AText := VarToStr(MyQuery.FieldValues['cn_name']);

     MyQuery.Next;

   end;

 end;

end;


联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678