請教這種條件選擇框如何設計 |
答題得分者是:supman
|
Leonli
一般會員 發表:23 回覆:21 積分:18 註冊:2004-03-31 發送簡訊給我 |
|
supman
尊榮會員 發表:29 回覆:770 積分:924 註冊:2002-04-22 發送簡訊給我 |
您好:
拉一個ComboBox,跟兩個ListBox
ComboBox.Items.Add('諮詢');
.
.
.
在ComboBox的OnSelect中寫下
if (ComboBox.Text='諮詢') then
begin
While not Query.Eof do
begin
ListBox1.Items.Add(Query.FieldByName(欄位).AsString);
Query.Next();
end;
end; 新增時
ListBox2.Items.Add(ListBox1.Items.Strings[lbSrc.ItemIndex]);
刪除時
ListBox2.DeleteSelected(); 發表人 - supman 於 2005/04/12 12:45:19
|
Leonli
一般會員 發表:23 回覆:21 積分:18 註冊:2004-03-31 發送簡訊給我 |
|
supman
尊榮會員 發表:29 回覆:770 積分:924 註冊:2002-04-22 發送簡訊給我 |
|
Leonli
一般會員 發表:23 回覆:21 積分:18 註冊:2004-03-31 發送簡訊給我 |
|
supman
尊榮會員 發表:29 回覆:770 積分:924 註冊:2002-04-22 發送簡訊給我 |
喔喔,了解,是我搞錯了.
當ComboBox按下去時將兩各List資料比對,如果已經存在就移除.
for i:=0 to ListBox2.Items.Count-1 do begin for j:=0 to ListBox1.Items.Count-1 do begin if (ListBox2.Items.String[i]=ListBox1.Items.String[j]) then begin ListBox1.Items.Delete(i); end; end; end;隨手寫的程式,沒測試,如果有誤的地方您自己改一下. |
Leonli
一般會員 發表:23 回覆:21 積分:18 註冊:2004-03-31 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |