求救！求救！DBGRID和QUERY结合的问题?

Question

2.procedure Tckdlr.qrymxmx_wlbhChange(Sender: TField);
begin
  with qrywlzd　do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From TABLE2 Where 编号＝'+#39+qrymx.FieldByName('编号').asstring+#30);
    Open;
  end;
  qrymx.fieldbyname('单价').asfloat:=qrywlzd.fieldbyname('单价').asfloat;
  qrymx.fieldbyname('税率').asfloat:=qrywlzd.fieldbyname('税率').asfloat;
  qrymx.fieldbyname('名称').asstring:=qrywlzd.fieldbyname('名称').asstring;
  qrymx.fieldbyname('税金').asfloat:=qrymx.fieldbyname('单价').asfloat*qrymx.filedbyname('税率').asfloat;
end;