我的程序中要用到dbgrideh的统计功能,就是在footer中显示信息的那个功能。我已经在设计阶段实现了。但问题是设计阶段要用到column editor添加列,然后设置列的footer,可是在运行阶段怎么用column editor添加列?我试过省去这一步,结果是footer里面没有东西,这么办?
解决方案 »
- 如何在一个frReport中使用两个以上的frDBDataSet?
- Delphi及C#的架构者Anders将于下个月回到Embarcadero,同时他将负责Delphi在移动平台方面的架构工作。
- 有关stringgrid组件的问题?急急急!!!
- 唉,我突然明白老石头为什么叫著名的CSDN关心结贴率的爱国人士了。
- 出现奇怪错误,帮忙看看!
- 一个简单的掉渣的问题!不信你看看哦!
- 帮忙UP也送分!CORBA三层开发中,如何将smart agent (osagent)绑定呢?
- 50分求一个纸牌的ActiveX控件
- 如何给adoquery的计算字段赋初始值?
- 如何在Service中读取NT的登陆用户名?谢谢。
- Delphi的发展方向
- 数组怎样与指针相互转换?(100)
begin
if Columns[i].Footers.Count<=2 then
begin
Columns[i].Footers.Add;
Columns[i].Footers.Items[0].ValueType := fvtStaticText;
Columns[i].Footers.Items[0].Value := '本列计数';
Columns[i].Footers.Add;
Columns[i].Footers.Items[1].ValueType := fvtCount;
end;
if Columns[i].FieldName='容量' then
begin
Columns[i].Footers.Items[0].Value := '容量合计';
Columns[i].Footers.Items[1].ValueType := fvtSum;
end;
dbgrideh1.sumlist.active:=true;
对footer合计的更新
合计象上面说的
添加TDBSumList控件:
with EhDBGrid do
begin
Columns[0].Footer.ValueType:=fvtStaticText;
Columns[0].Footer.Value:='合计:';
for iCount:=1 to Columns.Count-1 do
begin
case Columns[iCount].Field.DataType of
ftSmallint,ftInteger,ftFloat,ftCurrency,ftBCD:
Columns[iCount].Footer.ValueType:=fvtsum;
end;
end;
SumList.Active:=True;
end;