各位大大好: 小弟作一個客戶查詢的資料庫,每每在輸入資料按查詢後,總是跟我說Variant is not an array,以下是我的原始碼: P_NAME,P_COST,P_DATE是我的database的FieldName

-------------------------------------------------------------------
void __fastcall TForm1::btn_QueryClick(TObject *Sender)
{
  if(edtCust->Text=="")
    {
     ShowMessage("尚未輸入資料喔!");
     return;
    }
    tblOrder->Close();
    tblOrder->Open();
    Set option;        bool search = tblOrder->Locate("P_NAME;P_COST;P_DATE",edtCust->Text, option);
    if(search==true)
      {
      edtCost->Text=tblOrder->FieldValues["P_COST"];
      mskedt_Date->Text=tblOrder->FieldValues["P_DATE"];
      }
}
Locate中的edtCust->Text,我試著用改成VarArrayOf(edtCust->Text,1),compile則出現Cannot convert 'AnsiString' to 'const Variant *'

請問各位大大我應該怎麼修改,謝謝~

Hi，WayneNix，您好！ 小弟的一點淺見，試試這樣是否可行:

        TLocateOptions Opts;
        Opts.Clear();
        Opts<Locate("P_Name;P_Cost;P_Date",VarArrayOf(LocalValue,2),Opts);

相關問題bruce0211前輩早有論述，還請您看看: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18760 ■ Locate 使用 Locate 只搜尋"一個鍵位"值時 (Table1 不需有索引) Table1->Locate(“欲搜尋之欄位名稱”, 搜尋值, TLocateOptions() << loPartialKey); 使用 Locate 搜尋"複合鍵位"(兩個以上)值時 (Table1 不需有索引) Variant locvalues[]={搜尋值1, 搜尋值2, 搜尋值3}; Table1->Locate("欄位名稱1; 欄位名稱2; 欄位名稱3", VarArrayOf(locvalues,(sizeof(locvalues)/16-1)),TLocateOptions() << loPartialKey); ================================= 人生在勤，不索何獲 業精於勤荒於嬉，行成於思毀於隨 臨淵羡魚不如退而結網

------
人生在勤，不索何获？

我照大大的方法試了,會出現以上的畫面~而且會search不到,出現no的ShowMessage,請問大大我這邊犯了什麼錯,tkx 以下是我改的程式碼:

-------------------------------------------------------
void __fastcall TForm1::btn_QueryClick(TObject *Sender)
{
  if(edtCust->Text=="")
    {
     ShowMessage("尚未輸入資料喔!");
     return;
    }
    tblOrder->Close();
    tblOrder->Open();
 
   TLocateOptions Opts;
        Opts.Clear();
        Opts<Text);
        LocalValue[1] = Variant(edtCost->Text);
        LocalValue[2] = Variant(mskedt_Date->Text);
        bool search = tblOrder->Locate("P_Name;P_Cost;P_Date",VarArrayOf(LocalValue,2),Opts);
             
      if(search==true)
      {
      edtCost->Text=tblOrder->FieldValues["P_COST"];
      mskedt_Date->Text=tblOrder->FieldValues["P_DATE"];
      }
    else
    {
    ShowMessage("no!");
    return;
    }
}    

張貼程式碼請縮排，以利閱讀，小弟已協助修改，下次請您注意 詳細說明請參考本站規定 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19264    【公告】程式碼張貼規則與方法 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=57538    

引言: 我照大大的方法試了,會出現以上的畫面~而且會search不到,出現no的ShowMessage,請問大大我這邊犯了什麼錯,tkx 以下是我改的程式碼:

-------------------------------------------------------
void __fastcall TForm1::btn_QueryClick(TObject *Sender)
{
  if(edtCust->Text=="")
    {
     ShowMessage("尚未輸入資料喔!");
     return;
    }
    tblOrder->Close();
    tblOrder->Open();
 
   TLocateOptions Opts;
        Opts.Clear();
        Opts<3]; //是3不是2               LocalValue[0] = Variant(edtCust->Text);
        LocalValue[1] = Variant(edtCost->Text);
        LocalValue[2] = Variant(mskedt_Date->Text);
        bool search = tblOrder->Locate("P_Name;P_Cost;P_Date",VarArrayOf(LocalValue,2),Opts);
             
      if(search==true)
      {
      edtCost->Text=tblOrder->FieldValues["P_COST"];
      mskedt_Date->Text=tblOrder->FieldValues["P_DATE"];
      }
    else
    {
    ShowMessage("no!");
    return;
    }
}    

WayneNix：bigdogchina版大筆誤你也照抄，好可愛！ 請注意上面紅字！ Andy Chang

呵呵~~我真是眼花了 @@ 問題已解決,謝謝大大~~ 原來是我自己搞錯了,我要查詢的目標(date)我也把他那搜尋的範圍, 加上沒看到array的錯 :P 見笑了~

慚愧啊，很明顯的array錯誤居然沒有發現，自己也該檢討檢討基本功是否紮實。恩，今天是周末，該復習復習《C+++ Primer》了 ================================= <>人生在勤，不索何獲 <>業精於勤荒於嬉，行成於思毀於隨 <>臨淵羡魚不如退而結網

------
人生在勤，不索何获？