var
v_check_number:string;
procedure Tcommquery.DBGrid1DblClick(Sender: TObject);
begin
if dbgrid1.DataSource.DataSet.Active=true then
try
v_check_number:=dbgrid1.DataSource.DataSet.fieldbyname(dbgrid1.?).AsString;
showmessage(v_check_number);except
end;end;麻烦一下帮我补齐问号部分!谢谢谢谢! 括号中应该得到列标题