Button1程式片段 If TQMaintain1.FieldByName('EQM_NO').AsString = '' then begin showMessage('無資料可維護'); TBEDit.SetFocus; end else begin aa:=TQMaintain1.FieldByName('EQM_NO').AsString; showMessage(aa); end; Button2程式片段 ABC:= TQMaintain1.ParamByName('EQM_NO').AsString; showmessage(ABC); 程式執行時: Button1: Button1的程式片段執行正常 Button2: 出現Parameter 'EMQ_NO' not found 請幫我看一下為什麼 Thank You !

引言: Button2程式片段 ABC:= TQMaintain1.ParamByName('EQM_NO').AsString; showmessage(ABC); 程式執行時: Button1: Button1的程式片段執行正常 Button2: 出現Parameter 'EMQ_NO' not found

將Button2的程式修改為 ABC:= TQMaintain1.FieldByName('EQM_NO').AsString; 這樣應該就可以了 ~小弟淺見，參考看看~

感謝channel大力相助 兩者有何差異? 可否講解一番

引言: 兩者有何差異? 可否講解一番

ABC:= TQMaintain1.FieldByName('EQM_NO').AsString; 這是將欄位EQM_NO的值給ABC 所以FieldByName是指欄位 而ABC:= TQMaintain1.ParamByName('EQM_NO').AsString; 這是將TQMaintain1的參數EQM_NO給ABC ParamByName是指參數 例如您在TQuery屬性中的SQL下Select * From Maintain Where EQM_NO = :EQM_NO //:EQM_NO這是參數 當您要進行查時就要使用

  with TQMaintain1 do
  begin
    Close;
    ParamByName('EQM_NO').AsString := 'AAA';
    Open;
  end;

您的SQL語法應該沒有下Where EQM_NO = :EQM_NO 所有當您執行ABC:= TQMaintain1.ParamByName('EQM_NO').AsString; Delphi告訴您Parameter 'EMQ_NO' not found也就是參數EMQ_NO找不到，就是這個原因。 不知這樣您清楚嗎?有問題再問吧! ~小弟淺見，參考看看~

感謝你大力幫忙 讓我的觀念又更清楚 Thank You !