在dbgrid的oncolenter中写入下列语句:
 
procedure TForm1.DBGrid1ColEnter(Sender: TObject);begin
  with DBGrid1.SelectedField do
    begin
      hm.query月统计.Value := 结束日期 - 开始日期;
    end;end;