請問有關DBComboBox問題 @_@ |
|
答題得分者是：領航天使
|
|
Ethan
版主   發表：101 回覆：170 積分：78 註冊：2006-07-05 發送簡訊給我 |
|
|
大支豬
一般會員  發表：1 回覆：7 積分：1 註冊：2002-08-06 發送簡訊給我 |
山不轉路轉，DIY先....try this procedure TForm1.DBComboBox1DropDown(Sender: TObject);
var i : integer ;
begin
Table1.First;
for i := 0 to Table1.RecordCount -1 do
begin DBComboBox1.Items.Add(
Table1.FieldByName('company').AsString
);
Table1.Next;
end;
Table1.First; end; P.S :偶用 D6下拉還真的沒東西可以選，只好自已放loop做
等等看有沒有人知道直接改那個property就可以下拉的功能吧..
|
|
領航天使
站長  發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
引言: 為什麼我的Table裡共有: AAA BBB CCC DDD 四筆資料,但是我在DBComboBox裡確只出現一筆?? ---------------- ｜AAA ｜ ---------------- 請問我該如何連bbb, ccc, ddd ... 在下拉時都能顯示,謝謝!要做到您說的效果只能用DBListBox,但無法下拉! 要可下拉又可以自動列出選單則要用DBLookupComboBox元件 將DAtaSource,DataField填入要顯示的欄位 將ListSource,ListField,ListKey分別填入要拉出的Table的 DataSource,顯示下拉清單的欄位,關聯欄位. ～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
|
Ethan
版主 發表：101 回覆：170 積分：78 註冊：2006-07-05 發送簡訊給我 |
|
|
領航天使
站長 發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
引言: 站長,我按照你的方式結果出現 Circular datalinks are not allowedDAtaSource與ListSource不可用同一個Table! 要用兩個不同的Table 如:Table1 有 ID NAME TYPE 三個欄位 (基本資料表,編號/名稱/種類編號) Table2 有 TYPE TYPENAME 兩個欄位 (Table1中Type欄位的選單資料表,種類編號/種類名稱) 則 DBLookupComboBox: DAtaSource -> table1 DataField -> type ListSource -> table2 ListField -> TypeName ListKey -> Type 這樣懂嗎? ～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
|
andersonhsieh
版主 發表：33 回覆：531 積分：439 註冊：2002-06-10 發送簡訊給我 |
|
|
Ethan
版主 發表：101 回覆：170 積分：78 註冊：2006-07-05 發送簡訊給我 |
|
|
Ethan
版主 發表：101 回覆：170 積分：78 註冊：2006-07-05 發送簡訊給我 |
又一問題 ~>_<~ ...
搜尋問題!!我用 ComboBox做的,但是因為我資料庫的Table Name都是用英文取名的,而我也不能在ComboBox列表裡都用英文來讓USER選擇搜尋條件吧~太不人性化!!所以請教前輩我該如何克服這問題,謝謝!!就是說在ComboBox顯示的是中文,而送給Query的值是英文!!如果我用DBLookupComboBox做的話,又該怎麼做,謝謝!! Query1.SQL.Clear; {清除SQL,才不會出現錯誤訊息}
Query1.SQL.Add('select EDIT_DATE,ID,NAME,USER_COM_TEL,POST,CITY,ADDRESS,USER_KIND from cus_basic_c ');
Query1.SQL.Add('Where ' ComboBox1.Items[ComboBox1.ItemIndex] ' Like "' Edit1.Text '%"');
if Query1.Prepared=False then Query1.Prepare;
Query1.Open; {開啟 Query1}
|
|
andersonhsieh
版主 發表：33 回覆：531 積分：439 註冊：2002-06-10 發送簡訊給我 |
|
|
Ethan
版主 發表：101 回覆：170 積分：78 註冊：2006-07-05 發送簡訊給我 |
版主前輩~~
我按照您的方式後!! 結果是可以!!!
但是...當我按鈕一按下時,DBLookupComboBox裡面的文字就...不見了!!Why?
底線是我的程式,請幫小弟過目一下!!問題在哪,謝謝!! procedure TPA001Form.BitBtn1Click(Sender: TObject);
begin Database1.Connected:=false;
Database1.AliasName:='USER_SYSTEM';
Database1.Connected:=True; Query1.DatabaseName:='USER_PA';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select EDIT_DATE,ID,NAME,USER_COM_TEL,POST,CITY,ADDRESS,USER_KIND from cus_basic_c '); Query1.SQL.Add('Where '+DBLookupComboBox1.KeyValue+' Like "'+Edit1.Text+'%"');
if Query1.Prepared=False then Query1.Prepare;
Query1.Open;
end;
引言: 將DBLookupComboBox的LISTFIELD指向中文欄位,KEYFIELD指向英文欄位,抓值時利用DBLookupComboBox.KEYVALUE即可 @@~~飛翔在天際的精靈~~@@ |
|
andersonhsieh
版主 發表：33 回覆：531 積分：439 註冊：2002-06-10 發送簡訊給我 |
|
|
Ethan
版主 發表：101 回覆：170 積分：78 註冊：2006-07-05 發送簡訊給我 |
|
|
andersonhsieh
版主 發表：33 回覆：531 積分：439 註冊：2002-06-10 發送簡訊給我 |
|
|
Ethan
版主 發表：101 回覆：170 積分：78 註冊：2006-07-05 發送簡訊給我 |
|
|
andersonhsieh
版主 發表：33 回覆：531 積分：439 註冊：2002-06-10 發送簡訊給我 |
|
|
Ethan
版主 發表：101 回覆：170 積分：78 註冊：2006-07-05 發送簡訊給我 |
前輩,我把圖片放在這!
圖片一http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20805
圖片二http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20806
請幫我看一下!! 我要的就是,當我按搜尋後,DBLookupComboBox裡的列表文字依然健在!
引言: 可否將你的需求說明清楚 @@~~飛翔在天際的精靈~~@@ |
|
andersonhsieh
版主 發表：33 回覆：531 積分：439 註冊：2002-06-10 發送簡訊給我 |
|
|
Ethan
版主 發表：101 回覆：170 積分：78 註冊：2006-07-05 發送簡訊給我 |
前輩我把程式放在這,您幫我看看是那裡出錯了,謝謝!!
DBLookupComboBox是連 Query3 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20807
引言: 你的DBLookupComboBox連一個query 資料內容連一個query即可 @@~~飛翔在天際的精靈~~@@ |
|
hct47
一般會員 發表：34 回覆：15 積分：9 註冊：2004-04-23 發送簡訊給我 |
發表時間：2002-08-27 01:04:03
IP:218.165.xxx.xxx 未訂閱
系統時間：2024-11-24 23:34:51
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |