在dbgrid的oncolenter中写入下列语句:
procedure TForm1.DBGrid1ColEnter(Sender: TObject);begin
with DBGrid1.SelectedField do
begin
hm.query月统计.Value := 结束日期 - 开始日期;
end;end;
procedure TForm1.DBGrid1ColEnter(Sender: TObject);begin
with DBGrid1.SelectedField do
begin
hm.query月统计.Value := 结束日期 - 开始日期;
end;end;
解决方案 »
- 关于语句中单引号,双引号的问题?
- dbchart 线条颜色的问题
- 报表的问题
- 有没有办法在VB编的应用程序运行时,将Delphi的控件显示到其窗体上?
- 一个简单的表达式求值的问题,高分相赠
- 100分求助,关于Formula One的关闭、新建方法怎么写?
- 我从TDBGrid继承了一个MyDBGrid,并改写了一下KeyDown事件,然而当我把dgAlwaysShowEditor改为True时,KeyDown事件就不响应了,请帮忙看
- 哪里有ExpressQuantumGrid suit with full source下载呀
- DBgridEH选出行数
- 取硬盘序列号,有时一运行就死机
- 关于读取文件的问题
- 高分求救!!!大家帮帮忙怎么在delphi里显示YUV图像???
将数据源(table)的autocalcfield设为true,
在oncalcfield写上你的代码就可以了。
如:
hm.fieldbyname('aaa').asinteger :=hm.fieldbyname('bbb').asinteger * 2;aaa为calculate字段