Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
Private Sub SelectItems_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim cn As New SqlConnection(strConn) Dim SQL As String SQL = "SELECT UserId As Id, FullName As Name, 0 As Selected FROM Users WHERE Terminated = 0" Using da As New SqlDataAdapter(SQL, cn) da.Fill(dt) End Using bs1.DataSource = dt bs1.Sort = "Name" bs1.Filter = "Selected = 0" lbxUnSelectedItems.DataSource = bs1 lbxUnSelectedItems.ValueMember = "Id" lbxUnSelectedItems.DisplayMember = "Name" bs2.DataSource = dt bs2.Sort = "Name" bs2.Filter = "Selected = 1" lbxSelectedItems.DataSource = bs2 lbxSelectedItems.ValueMember = "Id" lbxSelectedItems.DisplayMember = "Name" cn = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.