vb.net 組合框中的公共多載子選單的引數過多 vb.net 組合框中的函式錯誤
Public Function combo(strQuery As String) As List(Of ComboBox)
Dim objlist As New List(Of ComboBox)
con.Open()
Dim dt As New DataTable
For Each dr In ExecuteReader(strQuery).Rows
objlist.Add(New ComboBox(Convert.ToInt32(dr.Item(0).ToString()), dr.Item(1).ToString()))
Next
con.Close()
Return objlist
End Function
<Extension>
Public Function ExecuteReader(strQuery As String) As DataTable
Dim dt As New DataTable
If con.State = ConnectionState.Open Then con.Close()
con.Open()
cmd = New SqlCommand(strQuery, con)
da = New SqlDataAdapter(cmd)
da.Fill(dt)
con.Close()
Return dt
End Function
uj5u.com熱心網友回復：
ComboBox 建構式不接受任何引數。https://docs.microsoft.com/en-us/dotnet/api/system.windows.forms.combobox.-ctor?view=windowsdesktop-6.0
我認為你的功能應該讀
Private Class ComboBoxItem
Public Property Id As Integer
Public Property Text As String
Public Sub New(Id As Integer, Text As String)
Me.Id = Id
Me.Text = Text
End Sub
End Class
Public Function GetPopulatedCombo(strQuery As String) As ComboBox
Dim Combo As ComboBox = New ComboBox
Combo.DisplayMember = "Text"
Using DT = ExecuteReader(strQuery)
For Each dr In DT.Rows
Combo.Items.Add(New ComboBoxItem(dr.Item(0),dr.Item(1))
Next
End Using
Return Combo
End Function
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/496416.html
標籤：VB.net
下一篇：VisualBasic生成表單