我有一個 vb 組合框,其值取自針對 Access DB 運行的 SELECT DISTINCT SQL 陳述句。所選值將用作后續 SELECT 陳述句中的引數。我擔心的是,我希望用戶能夠避免選擇一個值,以便引數將從下一個 SELECT 陳述句中洗掉,或者將使用 * 作為通配符。我不想在表中添加一個虛擬行來保存空值或星號,所以我需要找到某種方法在頂部添加一行,以顯示這一點。我不確定如何/在哪里放置 INSERT 陳述句,以便它顯示在組合框的頂部,但不在資料庫中。這是我正在使用的代碼。我對 VB 很陌生,并選擇了這種方法來填充組合框,因為它看起來很容易理解。我很感激任何幫助。謝謝。
myConnToAccess = New OleDbConnection(myVariables.myStrConnectionString)
myConnToAccess.Open()
ds = New DataSet
tables = ds.Tables
da = New OleDbDataAdapter("SELECT DISTINCT ProcUserName FROM Processes ORDER BY ProcUserName", myConnToAccess)
da.Fill(ds, "Processes")
Dim view1 As New DataView(tables(0))
With cboUserID
.DataSource = ds.Tables("Processes")
.DisplayMember = "ProcUserName"
.ValueMember = "ProcUserName"
.SelectedIndex = 0
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.ListItems
End With
myConnToAccess.Close()
uj5u.com熱心網友回復:
從資料庫中提取資料并使用DataTable.Rows.InsertAt設定其位置后,您可以在 DataTable 中添加虛擬行
....
da.Fill(ds, "Processes")
Dim dt As DataTable = ds.Tables("Processes")
Dim row As DataRow = dt.NewRow()
row("ProcUserName") = "(All)"
dt.Rows.InsertAt(row, 0)
轉載請註明出處,本文鏈接:https://www.uj5u.com/caozuo/361777.html
標籤:网络
