procedure TINVOICE.SpeedButton1Click(Sender: TObject); var INVO: string; begin IF ComboBox.Text='All_Invoice' Then INVO:='SELECT * FROM [INVOICE] order by INID Desc' ELSE IF ComboBox.Text='InvoiceNumber' Then INVO:='SELECT * FROM [INVOICE] WHERE InvoiceNumber='+Edit1.Text+' order by INID Desc' ELSE IF ComboBox.Text='Cntr_No' Then INVO:='SELECT * FROM [INVOICE] WHERE CntrNo like '+Edit1.Text+' order by INID Desc' ELSE begin with LJSJK.INVOICE do begin Close; SQL.Clear; SQL.Add(INVO); TRY Open; except ExecSQL; FREE; end; end; end; end; 當選擇InvoiceNumber再輸入條件進行搜索時就出現上面圖的錯誤。 希望實現功能如下： 1. 選擇InvoiceNumber時無須輸入條件直接按搜索按鈕展示所有資料； 2. 當選擇其他選項時必須輸入相應的搜索內容進行相應的搜索。 請個位高高手幫忙，感謝！感謝！！ 寫程序——新問題會接踵而來！

 
procedure TINVOICE.SpeedButton1Click(Sender: TObject);
var
  INVO: string;
begin
  IF ComboBox.Text='All_Invoice' Then
    INVO:='SELECT * FROM [INVOICE] order by INID Desc'  
  ELSE IF ComboBox.Text='InvoiceNumber' Then
    INVO:='SELECT * FROM [INVOICE] WHERE InvoiceNumber=' Edit1.Text ' order by INID Desc'   //<== OK
  ELSE IF ComboBox.Text='Cntr_No' Then
    INVO:='SELECT * FROM [INVOICE] WHERE CntrNo like ''' Edit1.Text ''' order by INID Desc'   //<== 注意紅色的單引號
  ELSE begin
    with LJSJK.INVOICE do begin
      Close;
      SQL.Clear;
      //SQL.Add(INVO); <== INVO並沒有內容呀!
      SQL.Add('SELECT * FROM [INVOICE] order by INID Desc');  <== 改成這樣看看
      TRY
        Open;
      except
        ExecSQL;
        FREE;
      end;
    end;
  end;
end;

_______________________________________ 深藍的魚，祝您好運..........連連

您好﹗

procedure TINVOICE.SpeedButton1Click(Sender: TObject);
var
  INVO: string;
begin
  IF ComboBox.Text='All_Invoice' Then
    INVO:='SELECT * FROM [INVOICE] order by INID Desc'  
  ELSE IF ComboBox.Text='InvoiceNumber' Then
    INVO:='SELECT * FROM [INVOICE] WHERE InvoiceNumber='''+Edit1.Text+''' order by INID Desc'
  ELSE IF ComboBox.Text='Cntr_No' Then
    INVO:='SELECT * FROM [INVOICE] WHERE CntrNo like '''+Edit1.Text+''' order by INID Desc'
  ELSE//刪除這個ELSEbegin
    with LJSJK.INVOICE do begin
      Close;
      SQL.Clear;
      SQL.Add(INVO);
      TRY
        Open;
      except
        ExecSQL;
        FREE;
      end;
    end;
  end;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

感謝兩位先進的回復，但問題還是沒有改善哦    寫程序——新問題會接踵而來！

您好﹗    LJSJK.INVOICE是資料集元件的名稱嗎﹖發現是和Form的名稱相同﹐請問是使用何元件﹖如果不是資料集元件﹐以下紅色處就缺少了資料集元件的名稱﹐如果确定是資料集元件的話﹐改成如下試試﹕

procedure TINVOICE.SpeedButton1Click(Sender: TObject);
var
  INVO: string;
begin
  IF ComboBox.Text='All_Invoice' Then
    INVO:='SELECT * FROM [INVOICE] order by INID Desc'  
  ELSE IF ComboBox.Text='InvoiceNumber' Then
    INVO:='SELECT * FROM [INVOICE] WHERE InvoiceNumber='''+Edit1.Text+''' order by INID Desc'
  ELSE IF ComboBox.Text='Cntr_No' Then
    INVO:='SELECT * FROM [INVOICE] WHERE CntrNo like '''+Edit1.Text+''' order by INID Desc'
  With LJSJK.INVOICE do
  begin
    Close;
    SQL.Clear;
    SQL.Add(INVO);
    Open;
  end;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

select 請用 open inset , update ,delete 才用 ExecSQL;

朋友（BIG-ROM）: 我想，從你提供的信息來看，可能變量INVO中根本就沒有被賦值，也就是說你的Combobox中的Text屬性並不是你的程式中包含的這三個（這有可能是你在Coding時的筆誤）。 所以，請做如下的測試：在語句SQL.Add(INVO);前加上ShowMessage(INVO),看看INVO中具體的值是什麽。

您好，按方法測試也是相同的錯誤信息.    

引言: 朋友（BIG-ROM）: 我想，從你提供的信息來看，可能變量INVO中根本就沒有被賦值，也就是說你的Combobox中的Text屬性並不是你的程式中包含的這三個（這有可能是你在Coding時的筆誤）。 所以，請做如下的測試：在語句SQL.Add(INVO);前加上ShowMessage(INVO),看看INVO中具體的值是什麽。

寫程序——新問題會接踵而來！

您好。 LJSJK.INVOICE    LJSJK====是數據模塊 INVOICE===ADOWuery    

引言: 您好﹗ LJSJK.INVOICE是資料集元件的名稱嗎﹖發現是和Form的名稱相同﹐請問是使用何元件﹖如果不是資料集元件﹐以下紅色處就缺少了資料集元件的名稱﹐如果确定是資料集元件的話﹐改成如下試試﹕

procedure TINVOICE.SpeedButton1Click(Sender: TObject);
var
  INVO: string;
begin
  IF ComboBox.Text='All_Invoice' Then
    INVO:='SELECT * FROM [INVOICE] order by INID Desc'  
  ELSE IF ComboBox.Text='InvoiceNumber' Then
    INVO:='SELECT * FROM [INVOICE] WHERE InvoiceNumber='''+Edit1.Text+''' order by INID Desc'
  ELSE IF ComboBox.Text='Cntr_No' Then
    INVO:='SELECT * FROM [INVOICE] WHERE CntrNo like '''+Edit1.Text+''' order by INID Desc'
  With LJSJK.INVOICE do
  begin
    Close;
    SQL.Clear;
    SQL.Add(INVO);
    Open;
  end;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

寫程序——新問題會接踵而來！

朋友， 請問你有沒有把Show出來的SQL直接在其他地方執行一下，看看語法有無錯誤。另外，請把你用ShowMessage顯示出來的SQL發表出來給大家看看好嗎?還要説明一下你使用的數據庫是什麽。

參數沒有傳遞到導致無法執行查詢，ComboBox元件的正確用法能否說明一下？    寫程序——新問題會接踵而來！

您好﹗    用Try和Except來攔截錯誤試試﹕

procedure TINVOICE.SpeedButton1Click(Sender: TObject);
var
  INVO: string;
begin
  IF ComboBox.Text='All_Invoice' Then
    INVO:='SELECT * FROM [INVOICE] order by INID Desc'  
  ELSE IF ComboBox.Text='InvoiceNumber' Then
    INVO:='SELECT * FROM [INVOICE] WHERE InvoiceNumber='''+Edit1.Text+''' order by INID Desc'
  ELSE IF ComboBox.Text='Cntr_No' Then
    INVO:='SELECT * FROM [INVOICE] WHERE CntrNo like '''+Edit1.Text+''' order by INID Desc'
  With LJSJK.INVOICE do
  begin
    Close;
    SQL.Clear;
    SQL.Add(INVO);
    try
      Open;
    except
      On E:Exception do
        ShowMessage(E.Message);
    end;
  end;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟