dbgrideh 的一个小问题，超难很有用(自动计算) 我想这个问题很有用？对大家也有很帮助

[cc莫默]

具体是这样的，
摘要 借方， 贷方 余额
提现 100 100
付款 20 80
收入 200 280

要求在改变借方，贷方的值时, 余额随之发生变化
例子
把提现 借方100 改变150
结果就变成
摘要 借方， 贷方 余额
提现 150 150
付款 20 130
收入 200 330

我想这个问题很有用？对大家也有很帮助?

[cc莫默]

这个问题难到没个遇到过?

[天行归来]

这个很简单，在记录集的字段对象OnChange作计算就可以了。即，借方/贷方值发生变化，计算余额。

[hsmserver]

和grideh有什么关系
你可以在dataset.fields.onchange中
写代码重新生成
好象你也对业务不太清楚，一般流水是不允许改的
新增或着冲红的方式

[cc莫默]

不是流水，有点像银行对账,

lynmison 我如何获取上一个余额字段的数据 如果是同一记录的我知道用onCalcFields就能实现

[hsmserver]

先取当前记录行的改变以后的数据假如为i
然后prior取数据假如为j
再next然后根据借方和贷方是否为0判断j:=j+vale;
一直到eof不就行了

[天行归来]

hmserver其实已经给你答案了。
1、编写事件
procedure OnCalcBalance(sender: TField);
begin
当前记录集前移一条
取出余额
记录集.Next;
while not 记录集.eof
begin
根据摘要，处理数据逻辑关系
记录集.Next;
end;
end;

2、初始化，在打开记录集的时候动态绑定
procedure InitParam();
begin
打开记录集
if 记录集.FindField('借方')<>nil then 记录集.FindField('借方').OnChange := OnCalcBalance;
if 记录集.FindField('贷方')<>nil then 记录集.FindField('贷方').OnChange := OnCalcBalance;
贷方
end;

[cc莫默]

两位好心人，能在帮帮我吗？hsmserver 说不能在dataset.fields.onchange事件中写 adoquery1.prior;
那要在那里写?
代码贴出来，请帮我看看
//借方字段的事件 我在这里先不减贷方数额
procedure TForm1.ADOQuery1jyChange(Sender: TField);
//var
// i,j:integer;
begin
//先上移一条
adoquery1.Prior;
//取出余额数
i:=adoquery1.FieldByName('ye').AsInteger;//余额
//下移一条，回到当前记录
adoquery1.Next;
while not adoquery1.eof do
begin
//取出当前记录的金额
j:=adoquery1.FieldByName('jy').AsInteger;
adoquery1.Edit;
//当前行记录余额等于 前一条记录金额(jy)加当前行记录余额(s)
adoquery1.FieldByName('ye').Value:=i+j;
//保存当前行记录的余额
i:=adoquery1.FieldByName('ye').AsInteger;
//记录下移
adoquery1.Next;
end;
end;
帮我看看，我实在太笨了，感谢两位，

[cc莫默]

两位有qq吗，方便告诉我一下，谢谢你们了

[hsmserver]

加个提交按钮用来提交
在onchang内不能改变记录指针

[cc莫默]

可我看见过别的程序实现过， 是实时变化的

[天行归来]

msn:[e-mail]

[cc莫默]

谢谢lynmison ，hsmserver 两位我选试试

[cc莫默]

为什么在dataset.fields.onchange事件执行 adoquery1.Prior; 就报stack overflow错误

[hsmserver]

呵呵，不能写onchange中，那样肯定溢出的

[天行归来]

借方和贷方是用户干预触发 OnChange 事件，怎么可能死循环导致堆栈溢出，是不是你在OnChange里头又设置该字段 的值？
另外，检查一下你的程序，是不是用了 "余额" 的OnChange？

[落幕年代]

怎么解决的 把答案弄上来啊

[落幕年代]

还有你那 借和贷 一直没判断