各位大大好: 學校作業做不出來請各位大大幫個忙... 學校要求製作一個Paradox7 的Table (已經好了)... 然後用TTable 連上去 (可以連...) 現在就是要把那個Table裡面的primary key裡面的東西全部放到TDBComboBox裡面,然後只要選擇DBComboBox裡面的任何一個資料,DBEdit就會顯示出那個Record的其他資料,現在問題就是...怎麼做? 再說清楚一點,Table裡面含有四個Field,StudentID(Primary key),StudentName,StudentAddress,StudentTel,然後把所有的StudentID放到DBComboBox裡,只要選擇任何一個StudentID,那比Record的其他資料就可以全部顯示在DBEdit裡面. 下面試我的作法,完全失敗,而且用這種作法好像用平常的TComboBox和TEdit就好了,根本不用TDBComboBox 和TDBEdit,請幫幫忙!! procedure TfrmAddReservation.FormCreate(Sender: TObject); var temp_string : string; begin While not (frmICDL.tblStudent.Eof) do begin dlcStudentID.Items.Add(frmICDL.tblStudent.FieldByName('StudentID').asString); frmICDL.tblStudent.Next; end; end; procedure TfrmAddReservation.dlcStudentIDChange(Sender: TObject); begin frmICDL.tblStudent.First; while not frmICDL.tblStudent.Eof do begin if frmICDL.tblStudent.FieldByName('StudentID').AsString = dlcStudentID.Text then begin dbeName.Text := frmICDL.tblStudent.FieldByName('StudentName').asString; dbeAddress.Text := frmICDL.tblStudent.FieldByName('StudentAddress').asString; end; frmICDL.tblStudent.Next; end; end;

1. 沒錯, 應該用TComboBox就可以了, 用TDBComboBox看不出來有什麼目的. 2. 在BComboBox元件的OnStateChange事件的程式碼修改如下: tblStudent.FindKey([dlcStudentID.Text]); 請您參考...

引言: 1. 沒錯, 應該用TComboBox就可以了, 用TDBComboBox看不出來有什麼目的. 2. 在BComboBox元件的OnStateChange事件的程式碼修改如下: tblStudent.FindKey([dlcStudentID.Text]); 請您參考...

不好意思,作業規定一定要用TDBComboBox TDBEdit,而用這兩個Component 的時候用FindKey他會出現Typy Violation 的錯誤,學校規定用TDBComboBox TDBEdit 應該有他的用法,例如點選TDBComboBox的某一個StudentID時,他會自動指向那個Record然後TDBEdit就可以自動把那個Record的資料讀出來,這是我自己猜想的,不曉得是不是可以這樣做,而且也不知道該如何做!! 發表人 - unisabilly 於 2004/08/04 20:17:51

引言: 各位大大好: 學校作業做不出來請各位大大幫個忙... 學校要求製作一個Paradox7 的Table (已經好了)... 然後用TTable 連上去 (可以連...) .... procedure TfrmAddReservation.dlcStudentIDChange(Sender: TObject); begin frmICDL.tblStudent.Locate('StudentID',dlcStudentID.Text,[]); end;

1.你可以向老師解釋, 本案中其實用dbcombobox與combobox是沒有意義的, 因為 題目是當combobox指向某一primary key時, 可以同步變更 dbedit 的內容而已 所以 combobox 足夠了! 除非 primary key 的欄位在未來是可以提供修正其內容的, 那就得用 dbcombobox了. 2.dbcombobox雖然是資料感知元件, 但選擇不同的 dbcombobox並不會令記錄指 標移動, 想要移動你那樣的做法並不實際, 還不如用locate, locate也是從頭掃 到尾, 但更顯程式的簡潔性(不過還有其他的做法)

Hi unisabilly,    似乎應該使用 TDBLookupComboBox 與 TDBEdit 設定 TDBLookupComboBox 的 ListSource、KeyField 及 ListField or ListFieldIndex 即可    其中 TDBLookupComboBox.ListSource =  TDBEdit.DataSource KeyField 為你指定的 Primary Key Listfield 為顯示出來的欄位名稱 ListFieldIndex 為顯示出來的欄位 Index Listfield 與 ListFieldIndex 兩者設其一即可     ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman