lookup和计算列的问题

[nightmaple]

a表
product totalQty
产品A 100
产品B 200

b表
Id customer product Qty
1 客户1 产品A 10
2 客户2 产品A 20

DBGridEh中要显示成如下
Id customer product Qty balQty(剩余数量)
5 客户3 产品A 5 50
5 客户3 产品A 15 50
5 客户3 产品B 30 170

a,b表是数据库中的，DBGridEh显示的是没存入数据库，点保存时才批量更新

要怎么实现界面上的：产品A的balQty(50)=a表中totalQty(100)-b表中Qty和(10+20)-界面上的产品A的Qty(5+15)???

请高手帮忙....

-----------------------------------------------------------
P.S
我现在只能实现成如下：
产品A的balQty(65)=a表中totalQty(100)-b表中Qty和(10+20)-界面上的产品A的Qty(5)
产品A的balQty(55)=a表中totalQty(100)-b表中Qty和(10+20)-界面上的产品A的Qty(15)
Id customer product Qty balQty(剩余数量)
5 客户3 产品A 5 65
5 客户3 产品A 15 55
5 客户3 产品B 30 170

DBGridEh的数据源为ADOQueryB.SQL为
select customer,product,Qty from b

lookup数据源为ADOQueryA.SQL为
select a.product,a.totalqty-sum(b.qty) as TQty from a left join b on a.product=b.product
group by a.product

我在ADOQueryb中添加lookup关联到ADOQueryA表返回TQty的字段:TQty
在ADOQueryb中添加一个计算列:balQty

在ADOQueryb的CalcFields事件中
ADOQueryb.FieldByName('balQty').asinteger:=ADOQueryb.FieldByName('TQty').asinteger-ADOQueryb.FieldByName('Qty').asinteger;

[阿三]

建几个视图进行辅助，看能不能简化下。

[nightmaple]

我现在最主要的问题就是界面上的（没保存到数据库）同一产品的数量不知道怎么统计

我有写一个function获取界面上同一产品的数量
function TFrom1.GetTempQty(prduct: string):integer;
var i,TotalQty:integer;
begin
TotalQty:=0;
with ADOQueryb do
begin
DisableControls;
Filtered:=true;
Filter:='prduct='''+Color+'''';
for I := 0 to ADOQueryb.RecordCount - 1 do
begin
TotalQty:=TotalQty+FieldByName('Qty').AsInteger;
Next;
end;
Filtered:=false;
EnableControls;
end;
result:=TotalQty;
end;

然后在ADOQueryb的CalcFields事件中
ADOQueryb.FieldByName('balQty').asinteger:=ADOQueryb.FieldByName('TQty').asinteger-self.GetTempQty(FieldByName('product').AsString);

但是报Stack overflow的错，估计是CalcFields事件中代码执行得太频繁而导致的。
有什么办法可以解决啊？

[nightmaple]

2楼代码贴错了，
Filter:='prduct='''+Color+'''';
改成
Filter:='product='''+prduct+'''';

[nightmaple]

怎么沉了？
高人来帮忙啊。。。。