关于给计算字段赋值的有关问题

关于给计算字段赋值的问题
在query1中有三个字段,jbno,jbmc,yallcosthj
其中yallcosthj为计算字段
我需要在dbgrid中显示出来
执行query1已经能够正确显示为这样:
代码   级别     销售收入
          合计
10       贵宾卡
20       金卡
...
就差yallcosthj字段无法显示出来
我又加入了query2控件,执行后:
  销售收入     代码
    1920
      420             10
    1500             20
...
如何将query2中的yallcost值赋给query1中的yallcosthj.
然后在dbgrid中正确显示为:
代码   级别     销售收入
          合计         1920
10       贵宾卡     420
20       金卡         1500
...
我在query1中的oncalcfields事件中写了这样一段代码   query1.FieldByName( 'yallcosthj ').AsFloat:=query2.fieldbyname( 'yallcost ').asfloat;
最后显示是这样的:
代码   级别     销售收入
          合计         1920
10       贵宾卡     1920
20       金卡         1920
不知道该怎么写了,望DX解答.谢谢了




------解决方案--------------------
为什么要加入query2?双击query1，右键里面加入一个NewField ，Name为yallcosthj,
TYPE 为Float , FIELD TYPE 要选 Calculated,
query1中的Oncalcfields事件中写了
procedure TFrmFindPersonal.query1CalcFields(DataSet: TDataSet);
begin
query1.FieldByName( 'yallcosthj ').AsFloat:=query2.fieldbyname( 'yallcost ').asfloat;
end;
------解决方案--------------------
query2中yallcost字段是什么？如果是不同的表，请分别给出表名~~~