小弟是用ADOQuery搭配DBGrid,但DBGrid可以被多筆選取,如何在多筆選取後,DBGrid只顯示被選取的資料ㄋ??

------
ivankuo

你可以參考一下 你可以再放一個adoquery 然後寫一個function把多筆選取的值 傳回給adoquery 然後下sql 應該就可以了 天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@

前輩, 您的意思是在使用另一個query,這樣是不是要再建立一個相同的table來存放阿??如果是這樣的話,這樣table會很多耶??還是我誤解了??

------
ivankuo

把另一個query1的sql語法table指向同一個

引言: 把另一個query1的sql語法table指向同一個

那這樣要如何過濾被選的資料ㄋ??

ivankuo, 您好 我想T.J.B版主的意思是說， 您增加一個adoquery元件， 然後將您選擇後的資料再由第二個adoquery元件在重新過濾一次， 最後再將DBGrid元件的DataSet指向第二個adoquery元件。 試試看！    ======================= 涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 是非終日有，不聽自然無 天下本無事，庸人自擾之

那過濾的方式是要紀錄這些被selected的key values,再傳入另一個query當作where 條件ㄇ?? 小弟有看到一個FilterOnBookmarks的方法,但是try不出來怎用??

------
ivankuo

引言: 那過濾的方式是要紀錄這些被selected的key values,再傳入另一個query當作where 條件ㄇ??是的 小弟有看到一個FilterOnBookmarks的方法,但是try不出來怎用??

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  I:  Integer;
  Str: string;
begin
  Str := '';
  if DBGrid1.SelectedRows.Count > 0 then
  begin
    with DBGrid1.DataSource.DataSet do
      for I := 0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBookmark(pointer(DBGrid1.SelectedRows.Items[I]));
        if I > 0 then
          Str := Str ', ';
        Str:= Str #39 FieldByName('KeyField').AsString #39;
      end;
    with Query2 do//另一Query
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select * From TableName Where KeyField in (' Str ')');
      Open;
    end;
  end;
end;

~小弟淺見，參考看看~ 發表人 - channel 於 2003/05/22 12:46:02

感謝前輩,我之前也只有想到這個方法,但嫌麻煩,不知還有其他可行的方式,因為這樣如果user點了一大推資料的話,where 條件就很長很長,不知還有其他更好的方式ㄋ

------
ivankuo

感謝前輩,我之前也只有想到這個方法,但嫌麻煩,不知還有其他可行的方式,因為這樣如果user點了一大推資料的話,where 條件就很長很長,不知還有其他更好的方式ㄋ

------
ivankuo

引言: 感謝前輩,我之前也只有想到這個方法,但嫌麻煩,不知還有其他可行的方式,因為這樣如果user點了一大推資料的話,where 條件就很長很長,不知還有其他更好的方式ㄋ

小弟認為這是無法避免的，應該只有這種方式吧!請各位前輩、先進賜教! ~小弟淺見，參考看看~

var
  x: Integer;
  BMList: array of TVarRec;
begin
  SetLength(BMList, smdbgrid1.SelectedRows.Count);
  for X:=0 to smdbgrid1.SelectedRows.Count - 1 do
  begin
    BMList[x].VType := vtPointer;
    BMList[x].VPointer := Pointer(smdbgrid1.SelectedRows[x]);
  end;
  bds1.FilterOnBookmarks(BMList);
end;

originally posted by Lieven Keersmaekers in http://groups.google.com/groups?hl=zh-TW&lr=lang_zh-CN|lang_zh-TW|lang_en&ie=UTF-8&oe=UTF-8&selm=3d2ac8fb_1%40dnews

感謝Justmade前輩,你的方式可以了,只是我自己也在try,確有問題 var i:integer; book:array of TBookmarkStr; begin SetLength(book,DBGrid1.SelectedRows.Count); for i:=0 to DBGrid1.SelectedRows.Count-1 do begin query1.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i])); book[i]:=Query1.Bookmark; end; Query1.FilterOnBookmarks([book]); //此行會有錯誤 end;

------
ivankuo

這是因為 Bookmarks 的定義是 array of const 而不是 array of TBookmarkStr : procedure FilterOnBookmarks(Bookmarks: array of const); 而根據 Help 中 "Variant open array parameters" 中說明 : The array of const construction is equivalent to array of TVarRec. TVarRec, declared in the System unit, represents a record with a variant part that can hold values of integer, Boolean, character, real, string, pointer, class, class reference, interface, and variant types. TVarRec's VType field indicates the type of each element in the array. Some types are passed as pointers rather than values; in particular, long strings are passed as Pointer and must be typecast to string. 所以要成功的使用 FilterOnBookmarks, 一就是 : Query1.FilterOnBookmarks([BookMark1,BookMark2,BookMark3,..]) 但這只能靜態的寫死 若要動態的建立便要使用 array of TVarRec; 我看完 Help 後也不是很肯定應甚樣做，我沒使用 ADO 所以便上網找找資料轉貼給你了。

感謝前輩,我查了help已經了解TVarRec的用法,非常感謝

------
ivankuo