在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;
解决方案 »
- delphi 下如何开发出 HIS 中使用的 三测单 报表 ????
- 定义写了一个右键菜单,但是原来的系统右键菜单里的复制,粘贴功能没有了,怎么样在自己的右键菜单里把这些功能加回去
- 未完成的难题?还有200分没有送出去,请旧贴UP者接分。问题被解决者仍会给200分
- 邮件拦截
- 如何学习java
- Delphi应用-ActiveX
- 如何编写?
- 要把一窗口上一个区域转成图片,但此窗口可能被其他窗口盖住,如何获取?
- !!!!!!!!挑战极限3---修改正在运行的可执行文件(PE)的数据并把他保存在该程序的文件中---!!!!!!!!!!!你能吗?!!!!
- delphi开发环境中按F12时会出现一个程序界面来,但当我按f12时程序的界面form没有出来。不知为什么???
- 关于读取文件的问题
- 高分求救!!!大家帮帮忙怎么在delphi里显示YUV图像???
将数据源(table)的autocalcfield设为true,
在oncalcfield写上你的代码就可以了。
如:
hm.fieldbyname('aaa').asinteger :=hm.fieldbyname('bbb').asinteger * 2;aaa为calculate字段