在DBGrid的Events的OnCellClick事件中写一下的代码:procedure .DBGrid1CellClick(Column: TColumn);var a:string;//定义变量abeginif ADOTable1.Active then begin a := ADOTable1.fieldbyname('分析结果').AsString;//获取选中行数据分析结果列的值,最好写分析结果英文名 end;end;