filter 的多項條件查找問題 |
|
缺席
|
|
figo
初階會員   發表：47 回覆：70 積分：28 註冊：2004-12-18 發送簡訊給我 |
|
|
figo
初階會員 發表：47 回覆：70 積分：28 註冊：2004-12-18 發送簡訊給我 |
|
|
cashxin2002
版主  發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
您好﹗ 這樣試試﹕
Filter := 'agent='''+form2.Query1.Fieldbyname('agent').AsString)+'''
and
line='''+form2.Query1.Fieldbyname('line').AsString+''''; =================================
------
忻晟 |
|
figo
初階會員 發表：47 回覆：70 積分：28 註冊：2004-12-18 發送簡訊給我 |
|
|
figo
初階會員 發表：47 回覆：70 積分：28 註冊：2004-12-18 發送簡訊給我 |
|
|
maureen
一般會員  發表：3 回覆：13 積分：13 註冊：2003-10-27 發送簡訊給我 |
|
|
cashxin2002
版主 發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
引言: 請問板主有沒有試過...查出來的數據不一的問題.... 有些是對的,有些不同,請問這樣是什麼問題... 是sql或delphl問題. 我是先select * 再filter . 通過dbgrid觀看. 再者有不一的情況您好﹗ 應沒有問題吧﹐注意您原來的語句中and前有四個引號﹐修改的語句中只有三個﹐原來的語句中and后有一個引號﹐修改的語句中沒有﹐and前后為同一個字串﹐并沒有分開﹐另外請全部使用單引號﹕ Filter := 'agent='''+form2.Query1.Fieldbyname('agent').AsString)+''' and line='''+form2.Query1.Fieldbyname('line').AsString+''''; =================================
------
忻晟 |
|
figo
初階會員 發表：47 回覆：70 積分：28 註冊：2004-12-18 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);//第一步
begin
with form2.Query3 do
begin
sql.Text := 'select DISTINCT agent from mhsodmas where sailing='
QuotedStr(edit1.Text)
'and macau_to_hk='
QuotedStr('M')
'group by agent';
open;
end;
//form2.Query3.Next;
// Button2.Caption := inttostr(Form2.Query3.RecordCount);
//form2.QuickRep1.Preview;
end; procedure TForm1.DBGrid1DblClick(Sender: TObject);//第三步
begin
with form2.Query2 do
begin
sql.Text := 'select * from mhsodmas where sailing='
QuotedStr(Form1.edit1.Text)
'and macau_to_hk='
QuotedStr('M')
'and agent='
QuotedStr(form2.Query1.Fieldbyname('agent').AsString)
'and line='
QuotedStr(form2.Query1.Fieldbyname('line').AsString)
'order by agent,line';
open;
end; { with DBGrid3.DataSource.DataSet do
begin
Filtered := false;
Filter := 'agent=''' form2.Query1.Fieldbyname('agent').AsString '''';
Filtered := true;
//Filtered := false;
// Filter := 'line=''' form2.Query1.Fieldbyname('line').AsString '''';
// Filtered := true;
end; }
end; procedure TForm1.DBGrid2DblClick(Sender: TObject);//第二步
begin
with form2.Query1 do
begin
sql.Text := 'select DISTINCT agent,line from mhsodmas where sailing='
QuotedStr(Form1.edit1.Text)
'and macau_to_hk='
QuotedStr('M')
'and agent='
QuotedStr(form2.Query3.Fieldbyname('agent').AsString)
'group by agent,line';
open;
end;
end; 同
sql.Text := 'select * from mhsodmas where sailing='
QuotedStr(Form1.edit1.Text)
'and macau_to_hk='
QuotedStr('M')
'order by agent,line';
得出結果不一
前者只有4條..後者有8條
agent 和 line 都是空值 edit1是日期
謝謝各位指教
|
發表時間：2005-01-18 12:30:04
IP:202.175.xxx.xxx 未訂閱
系統時間：2025-03-07 4:05:54
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |