一个非常奇怪的问题，高手近来看看

[sanzheng]

procedure TForm.ButtonClick(Sender: TObject);
var
No:String;
Money:Double;
begin
ADOQuery2.Close;
ADOQuery2.SQL.ADD('Select Sum(P_Money) as MMoney From P_in Group By P_NO');
ADOQuery2.Open;
While not ADOQuery2.Eof do
begin
NO:=ADOQuery2.FieldByName('P_No').AsString;
Money:=ADOQuery2.FieldByName('MMoney').AsFloat;
ADOQuery.Close;
ADOQuery.SQL.Add('Select P_NO,P_Money from P_Buy where P_No='''+NO+'''');
ADOQuery.Edit;
ADOQuery.FieldByName('P_Money').AsFloat:=Money;
ADOQuery2.Next;
end;
end;

错在哪里？提示说找不到字段MMONEY

[hevin]

试试这个：

procedure TForm.ButtonClick(Sender: TObject);
var
No:String;
Money:Double;
begin
ADOQuery2.Close;
ADOQuery2.SQL.ADD('Select P_NO,Sum(P_Money) as MMoney From P_in Group By P_NO');
ADOQuery2.Open;
While not ADOQuery2.Eof do
begin
NO:=ADOQuery2.FieldByName('P_No').AsString;
Money:=ADOQuery2.FieldByName('MMoney').AsFloat;
ADOQuery.Close;
ADOQuery.SQL.Add('Select P_NO,P_Money from P_Buy where P_No='''+NO+'''');
ADOQuery.Edit;
ADOQuery.FieldByName('P_Money').AsFloat:=Money;
ADOQuery2.Next;
end;
end;

[__Ray__]

procedure TForm.ButtonClick(Sender: TObject);
var
No:String;
Money:Double;
begin
ADOQuery2.Close;
ADOQuery2.SQL.ADD('Select Sum(P_Money) as MMoney From P_in Group By P_NO');
ADOQuery2.Open;
While not ADOQuery2.Eof do
begin
NO:=ADOQuery2.FieldByName('P_No').AsString;
Money:=ADOQuery2.FieldByName('MMoney').AsFloat;
ADOQuery.Close;
ADOQuery.Clear; //这里要清除一下
ADOQuery.SQL.Add('Select P_NO,P_Money from P_Buy where P_No='''+NO+'''');
ADOQuery.Open;
ADOQuery.Edit;
ADOQuery.FieldByName('P_Money').AsFloat:=Money;
ADOQuery.Post;
ADOQuery2.Next;
end;
end;

[__Ray__]

不过这种情况,还是建议你在ADOQuery中设置参数,更新的时候只要改一下参数,然后执行一下(ADOQuery.ExecSQL;)就可以了

[78hgdong]

建议加个计算字段