全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:842
推到 Plurk!
推到 Facebook!

急!急!急!要实现最简单的筛选该怎么做呢?

尚未結案
flysky
一般會員


發表:9
回覆:11
積分:4
註冊:2004-03-25

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-03-25 16:30:43 IP:210.87.xxx.xxx 未訂閱
设置了combobox的items属性为“计算机”和“英语”。 table1为学生表, 要在combobox1里选择系别为“计算机”和“英语”时, 实现在DBGrid里即时显示筛选结果,该怎么做呢?
moggy
一般會員


發表:0
回覆:4
積分:0
註冊:2002-07-01

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-03-25 17:30:23 IP:202.39.xxx.xxx 未訂閱
在ComboBox1的OnChange判斷 但建議用TQuery下SQL語法篩選
flysky
一般會員


發表:9
回覆:11
積分:4
註冊:2004-03-25

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-03-25 17:32:32 IP:210.87.xxx.xxx 未訂閱
非常感谢!!! 能把你说的方法的代码发上来吗?
woodss
一般會員


發表:13
回覆:24
積分:17
註冊:2003-07-24

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-03-25 17:48:12 IP:61.64.xxx.xxx 未訂閱
procedure TForm1.ComboBox1Change(Sender: TObject); begin     Query1.Close;  Query1.SQL.Text := 'select * from yuotable where field like ' char(39) '%' ComboBox1.Text '%' char(39); Query1.Open; end; yuotable 改成你的資料表名稱 field 改成你的欄位名稱
deity
尊榮會員


發表:90
回覆:876
積分:678
註冊:2003-05-09

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-03-25 21:56:30 IP:218.15.xxx.xxx 未訂閱
你好, 还有一种方法,直接根据所选取的Text进行筛选 procedure TForm1.Button1Click(Sender: TObject); begin with Query1 do begin  close;  sql.Clear;  sql.Add('select * from table1');  sql.Add('where field1="' combobox1.Text '"'); open; end; end; 试试看! ——行径窄处,留一步与人行——
flysky
一般會員


發表:9
回覆:11
積分:4
註冊:2004-03-25

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-03-26 17:15:45 IP:210.87.xxx.xxx 未訂閱
谢谢高手哥哥啦。
系統時間:2024-06-29 16:10:11
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!