DBGridEh 表尾显示合计问题 找招聘股票软件销售
sSql5:=＇＇11＇＇;
DBGridEh1.Columns[strtoint(sSql5)].Footer.ValueType := fvtSum;
---------------------------------------------------------------
为何表尾第11列显示为“0”？但打印预览能显示出正确合计值。
谢谢！
2楼: 直接换成11看看成不 如进销存注册机
3楼: 试过不行，我是采用执行SQL动态改变DBGridEh1数据的。
4楼: DBGridEh1.Columns[strtoint(sSql5)].Footer.FieldName:=DBGridEh1.Columns[strtoint(sSql5)].FieldName;
///？
SQL动态改变？那你刷新前台数据了吗？
DBGridEh1.SumList.RecalcAll;
5楼: 应该是数据集的问题了
提取数据，刷新
6楼: DBGridEh表尾显示合计 .....
设置如下就可以了.....
FooterRowCount : 1
SumList--------Active:=true
双击 DBGridEh 加入所需要的列....然后在 需要合计的.....设置..
Footer------Value Type ===>fvtSum
取低值..
Edit7.Text:=DBGridEh1.GetFooterValue(0,DBGridEh1.Columns.Items[2]);
＂ Items ＂ 是 你需要合计的列号....
希望是你要的吧....
库存管理软件版7楼: 楼上兄弟
他的合计里已经有数据显示了，证明不是DBGRIDEH的问题
8楼: 其他列是否正确，对比一下看是否哪设置不对？
9楼: 均已按LZ2000设置，其他列也一样显示为0，但打印可以显示正确合计值！
10楼: 应该就是没刷新了
把代码帖出来吧，帮你改了
11楼: sSql5:=＇＇11＇＇;
DBGridEh1.Columns[strtoint(sSql5)].Footer.ValueType := fvtSum;
DBGridEh1.SumList.Active := True; //加上这一行.
12楼: 代码如下：
---------------------------------------------------------
procedure TfrmMain.reRun;
var i: integer;
sSql0,sSql1,sSql2,sSql3,sSql4,sSql5: string;
sql0,sql1,sql2,sql3,sql4,sql5: string;
begin
ss:= sqlinifile.ReadString(＇＇程序参数＇＇,＇＇ss＇＇,＇＇＇＇);
sSql0 := sqlinifile.ReadString(＇＇程序参数＇＇,＇＇s0＇＇,＇＇＇＇);
sSql1 := sqlinifile.ReadString(＇＇程序参数＇＇,＇＇s1＇＇,＇＇＇＇);
sSql2 := sqlinifile.ReadString(＇＇程序参数＇＇,＇＇s2＇＇,＇＇＇＇);
sSql3 := sqlinifile.ReadString(＇＇程序参数＇＇,＇＇s3＇＇,＇＇＇＇);
sSql4 := sqlinifile.ReadString(＇＇程序参数＇＇,＇＇s4＇＇,＇＇＇＇);
sSql5 := sqlinifile.ReadString(＇＇程序参数＇＇,＇＇s5＇＇,＇＇＇＇);
if sSql0 <> ＇＇＇＇ then sql0 := ＇＇SELECT ＇＇ + sSql0
if sSql1 <> ＇＇＇＇ then sql1 := ＇＇ FROM ＇＇ + sSql1
if sSql2 <> ＇＇＇＇ then sql2 := ＇＇ WHERE ＇＇ + sSql2 ;
if sSql4 <> ＇＇＇＇ then sql4 := ＇＇ ORDER BY ＇＇ + sSql4;;
SQLstring:= Sql0 + sql1 + sql2 + sql3 + sql4;
DataModule1.ClientDataSet1.close;
DataModule1.ClientDataSet1.CommandText := SQLstring;
DataModule1.ClientDataSet1.Open;
if sSql5 <> ＇＇＇＇ then
DBGrid1.Columns[strtoint(sSql5)].Footer.ValueType := fvtSum;
end; 如招聘股票软件销售
13楼: 结贴。
联系我们
