同一條件查詢重複資料 |
|
尚未結案
|
|
braveheart
一般會員   發表：35 回覆：62 積分：24 註冊：2003-05-21 發送簡訊給我 |
要如何按一按鈕..能依次查詢相同條件下資料
TLocateOptions Opts_1;
TLocateOptions Opts_2;
Opts_1 << loPartialKey;
Opts_2 << loPartialKey;
ADOTable1->Next();
if((!ADOTable1->Locate(ComboBox1->Text, Edit1->Text, Opts_1)) && (!ADOTable1->Locate(ComboBox2->Text, Edit2->Text, Opts_2)))
{
ShowMessage("沒有相符合的資料!!");
}
這是再一本書找到的程式...但只會查到第一筆符合條件的資料...若要再當再次按下時..會跳到下一比同條件下的資料....本想是用Next()....還是只會停在第一比同條件資料..無法依次往下查詢...請問先進如何解決...謝謝各位先進
|
|
johneyhu
一般會員 發表：6 回覆：7 積分：2 註冊：2003-04-06 發送簡訊給我 |
|
|
braveheart
一般會員 發表：35 回覆：62 積分：24 註冊：2003-05-21 發送簡訊給我 |
|
|
tech_state
版主  發表：44 回覆：638 積分：641 註冊：2003-02-10 發送簡訊給我 |
braveheart, 您好
請試試以下的code，是否符合您的需求？
bool TF; // 全域變數，判斷是否執行過查詢功能且有查到資料
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(TF)
ADOTable1->Next();
else
{
AnsiString sqlpchg = ComboBox1->Text "='" Edit1->Text "' or " ComboBox2->Text "='" Edit2->Text "'";
ADOTable1->Filtered =false;
ADOTable1->Filter = sqlpchg;
ADOTable1->Filtered =true;
if(ADOTable1->RecordCount < 1)
{
ShowMessage("沒有相符合的資料!!");
TF = false;
}
else
TF = true;
}
}
=================================
涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。
是非終日有，不聽自然無
天下本無事，庸人自擾之
|
|
bee0606
一般會員 發表：22 回覆：30 積分：10 註冊：2003-08-12 發送簡訊給我 |
|
|
tech_state
版主 發表：44 回覆：638 積分：641 註冊：2003-02-10 發送簡訊給我 |
發表時間：2004-04-25 04:12:44
IP:61.71.xxx.xxx 未訂閱
系統時間：2024-04-30 12:03:07
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |