Private _results As New List(Of DataRow)
Dim SQL As String = String.Empty
Dim sqlData As New SQLData
Private Sub PopulateSuppliers()
Me.cbSupplier.Items.Clear()
Me.cbSupplier.DataSource = Nothing
SetSupplierSQL()
_results = sqlData.SelectStatement(SQL)
Me.cbSupplier.DataSource = _results
Me.cbSupplier.DisplayMember = "id"
Me.cbSupplier.ValueMember = "name"
End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.