請教各位先進 Var T:String; begin // ==從1日 ~ 31日 加總=== DM_DataBase.ADOQ_WorkpeoplFeat.Close; DM_DataBase.ADOQ_WorkpeoplFeat.SQL.Clear; DM_DataBase.ADOQ_WorkpeoplFeat.SQL.Add('Select * From 員工業績總表 where 姓名=''' DBLCbx_Name.Text ''' and (Select Sum(業績) As ''' T ''' From 員工業績總表)'); DM_DataBase.ADOQ_WorkpeoplFeat.Open; showmessage(T); end; 為何T無資料

sql語法有誤! 修正如下! try try看! 可不可以! DM_DataBase.ADOQ_WorkpeoplFeat.SQL.Add('Select Sum(業績) As ''' T ''' From 員工業績總表 where 姓名=''' DBLCbx_Name.Text ''' ');

你宣告了String T,但是你的程式到SHOWMESSAGE之前都沒有給T值,所以T當然不會有資料

如同 chih 前輩的說明, T 只是在 delphi 中的一個變數, 所以要將結果存入 T 中, 必須再使用 Fields 的相關函數才行, 另外你原來的 SQL command 也是有問題的, 也必須一併修改, 建議修改程式如下:

Var
   T:String;
begin
  // ==從1日 ~ 31日 加總===
      DM_DataBase.ADOQ_WorkpeoplFeat.Close;
      DM_DataBase.ADOQ_WorkpeoplFeat.SQL.Clear;
      DM_DataBase.ADOQ_WorkpeoplFeat.SQL.Add('Select * From 員工業績總表 where 姓名='''＋DBLCbx_Name.Text＋''' and (Select Sum(業績) As '''＋T＋''' From 員工業績總表)');
      DM_DataBase.ADOQ_WorkpeoplFeat.SQL.Add('Select Sum(業績) AS TOTSALES From 員工業績總表 where 姓名='''＋DBLCbx_Name.Text＋''' ');
      DM_DataBase.ADOQ_WorkpeoplFeat.Open;
      If not DM_DataBase.ADOQ_WorkpeoplFeat.IsEmpty Then
      Begin
        T := IntToStr(DM_DataBase.ADOQ_WorkpeoplFeat.FieldByName('TOTSALES').AsString;
      End;
      showmessage(T);
end;

T := IntToStr(DM_DataBase.ADOQ_WorkpeoplFeat.FieldByName('TOTSALES').AsString; 執行這一行出現的訊息 [Error] Unit_CalculateFeat.pas(408): There is no overloaded version of 'IntToStr' that can be called with these arguments 怎麼將計算出來的資料寫入另一個資料(薪資表)表的當月業績裡 發表人 - sword185 於 2003/05/02 09:59:27

引言: T := IntToStr(DM_DataBase.ADOQ_WorkpeoplFeat.FieldByName('TOTSALES').AsString; 執行這一行出現的訊息 [Error] Unit_CalculateFeat.pas(408): There is no overloaded version of 'IntToStr' that can be called with these arguments 怎麼將計算出來的資料寫入另一個資料(薪資表)表的當月業績裡

Sorry, 後面已用了 .AsString 前面就不用轉了....

Var T:String; begin // ==從1日 ~ 31日 加總=== ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('Select Sum(業績) AS TOTSALES From 員工業績總表 where 姓名=''' Edit1.Text ''' '); ADOQuery1.Open; If not ADOQuery1.IsEmpty Then Begin T := IntToStr(ADOQuery1.FieldByName('TOTSALES').AsInteger); End; showmessage(T); ADOQuery2.Close; ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add('UPDATE 員工薪資表 SET 當月總業績=''' T ''' where 姓名=''' Edit1.Text ''' '); ADOQuery2.Open; end; UPDATE........有錯

請修改如下:    

//...
      ADOQuery2.Close;
      ADOQuery2.SQL.Clear;
      ADOQuery2.SQL.Add('UPDATE 員工薪資表 SET 當月總業績=''' T ''' where 姓名=''' Edit1.Text ''' ');
      ADOQuery2.Open;
      ADOQuery2.ExecSQL;
//...

其實你的T可以不用宣告了...改成這樣...

begin
  // ==從1日 ~ 31日 加總===
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('Select Sum(業績) AS TOTSALES From 員工業績總表 where 姓名=''' Edit1.Text ''' ');
      ADOQuery1.Open;
      If not ADOQuery1.IsEmpty Then
      Begin
      showmessage(ADOQuery1.FieldByName('TOTSALES').AsString);
      ADOQuery2.Close;
      ADOQuery2.SQL.Clear;
      ADOQuery2.SQL.Add('UPDATE 員工薪資表 SET 當月總業績=' #39 ADOQuery1.FieldByName('TOTSALES').AsString #39 ' where 姓名=' #39 Edit1.Text #39');
      ADOQuery2.ExecSQL;
      End;
end;

非常謝謝您 // ==從1日 ~ 31日 加總=== ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('Select Sum(業績) AS TOTSALES From 員工業績總表 where 姓名=''' Edit1.Text ''' '); ADOQuery1.Open; If not ADOQuery1.IsEmpty Then Begin showmessage(ADOQuery1.FieldByName('TOTSALES').AsString); ADOQuery2.Close; ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add('UPDATE 員工薪資表 SET 當月總業績=' #39 ADOQuery1.FieldByName('TOTSALES').AsString #39 ' where 姓名=' #39 Edit1.Text #39'');//應該要''); ADOQuery2.ExecSQL; End;