Dim sqlCountGdt As String = ""
sqlCountGdt = "SELECT COUNT(GdtID) AS CountGdtID FROM Graduate "
Da = New SqlDataAdapter(sqlCountGdt, Conn)
Da.Fill(Ds, "CountGdt")
lblMaxGdt.DataBindings.Add("Text", Ds, "CountGdt.CountGdtID")
If Ds.Tables("CountGdt").Rows.Count <> 0 Then
For I = 1 To 954
With cboMinGdt
.Items.Add(I)
End With
Next I
End If
ผมว่าเอาความสามารถของ DataTable กับ BindingSource มาใช้น่าจะได้
ผมมีตัวอย่างให้ดูด้านล่าง
Dim dt As New DataTable
Dim bin As New BindingSource
dt.Columns.Add("Number", GetType(System.Int32))
For I As Integer = 1 To 954
Dim dr As DataRow = dt.NewRow
dr(0) = I
dt.Rows.Add(dr)
Next
bin.DataSource = dt
cboMinGdt.DataSource = bin
cboMinGdt.DisplayMember = "Number"