Wolfgang Chien's Homepage | Delphi學習筆記 - 問答篇 |
假設我用了 Tquery,得到一個 cursor,我想把這些資料的某欄位取出來讓 usermulti select 那要用甚麼元件 ? 或者是要把某欄取出與 array 作運算,,得到一個新的 array ..那我要怎麼作?
大剛兄, 查 online help 對 TDBListBox 中沒有看到MultiSelect 屬性,小弟剛才試寫了一個暴力級的程序(讓您見笑了 :p), 請您參考看看::
(* 將資料欄位一筆一筆移入 ListBox *) procedure TForm1.Button1Click(Sender: TObject); var bmQuery1: TBookmark; begin with Query1 do begin if State = dsInactive then Exit else ListBox1.Clear; DisableControls; bmQuery1 := GetBookmark; First; while not Eof do begin ListBox1.Items.Add(FieldByName('Cu_No').AsString); Next; end; GotoBookmark(bmQuery1); FreeBookmark(bmQuery1); EnableControls; end; end;
首頁 | 學習筆記 | 主題公園 | 軟體下載 | 關於本站 | 討論信群 | 相約下次 |