不算很难,给你提供一个思路...<br> ADOQuery1->Close();<br> ADOQuery1->SQL->Add("select 公式 As TT from hob.BBB");<br> ADOQuery1->Open();<br> AnsiString Str=ADOQuery1->FieldByName("TT")->AsString;<br> ADOQuery1->Close();<br> ADOQuery1->SQL->Clear();<br> ADOQuery1->SQL->Add("Update hob.AAA Set "+Str);<br> ADOQuery1->ExecSQL();