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

8341 2004-08-11 04:08:36
就是在最后一行FOOTER里,如果计算的不满意他就要自己写,咋整?
...全文
147 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
EhLib 5.0 Build 5.0.13 Russian version. Full source included. ------------------------------------------------------------------- The Library contains components and classes for Borland Delphi versions 5, 6, 7, 8 & 9 , Borland C++ Builder versions 5 & 6, Borland Developer Studio 2006, CodeGear Delphi 2007, CodeGear RAD Studio 2009 and Embarcadero RAD Studio 2010. TABLE OF CONTENTS ----------------- Overview Installation Library Installation Help Demonstration Programs Registering and Prices Other information About author Overview -------- The Library contains several components and objects. TDBGridEh component TDBGridEh provides all functionality of TDBGrid and adds several new features as follows: Allows to select records, columns and rectangle areas. Special titles that can correspond to several/all columns. Footer that is able to show sum/count/other field values. Automatic column resizing to set grid width equal client width. Ability to change row and title height. Allows automatic broken of a single line long title and data row to a multiline. Title can act as button and, optionally show a sort marker. Automatically sortmarking. Ability to truncate long text with ellipsis. Lookup list can show several fields. Incremental search in lookup fields. Frozen columns. DateTime picker support for TDateField and TDateTimeField. Allows to show bitmaps from TImageList depending on field value. Allows to hide and track horizontal or vertical scrollbars. Allows to hide columns. Allows to show 3D frame for frozen, footer and data rows. Allows to draw memo fields. Multiline inplace editor. Proportional scrolling independently of sequenced of dataset. Automatically show checkboxes for Boolean fields. Allows to show checkboxes for other type of fields. Has a procedures to save and restore layout (visible columns, columns order, columns width, sortmarkers, row height) in/from registry or

5,379

社区成员

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

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