惨了,用户要在EHLIB的汇总栏自己写东西,大家说该怎么办?

8341 2004-08-11 04:08:36
就是在最后一行FOOTER里,如果计算的不满意他就要自己写,咋整?
...全文
146 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
8341 2004-08-12
  • 打赏
  • 举报
回复
偶是这么解决滴:

procedure TshejiX.DBGridEh1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin

if DBGridEh1.Height-Y<40 then //最后一行FOOTER
begin

OraTable8.Last;
if OraTable8.FieldValues['jd']='合计' then exit;

if messagEbox(HANDLE,'自己输入?','',mb_yesno)=Idno then exit;

OraTable8.Append;
OraTable8.FieldValues['jd']:='合计' ;
OraTable8.FieldByName('zql').AsString:=DBGridEh1.GetFooterValue(0, DBGridEh1.Columns[3]);
OraTable8.FieldByName('qd').AsString:=DBGridEh1.GetFooterValue(0, DBGridEh1.Columns[4]);
OraTable8.FieldByName('zqcy').AsString:=DBGridEh1.GetFooterValue(0, DBGridEh1.Columns[5]);
OraTable8.FieldByName('zqscsj').AsString:=DBGridEh1.GetFooterValue(0, DBGridEh1.Columns[6]);
OraTable8.FieldByName('yqb').AsString:=DBGridEh1.GetFooterValue(0, DBGridEh1.Columns[7]);
DBGridEh1.FooterRowCount:=0;
end;

end;
多壮志 2004-08-11
  • 打赏
  • 举报
回复
如不直接打印ehlib则没有意义。如果有,那么好办
可以使用ehlib sumlist,并把最后的结果修改到特定行!
aiunong 2004-08-11
  • 打赏
  • 举报
回复
gz
8341 2004-08-11
  • 打赏
  • 举报
回复
up

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧