عدم ظهور بينات اسم اختاره من لست بوكس

كود :

       ' تعبئة لستبوكس المستخدمين

        '=========================================================================================

        SQL = "SELECT * FROM Tab_Users order by G_ID"

        Da = New SqlDataAdapter(SQL, connDB)

        Try

            Lst_Users.DataSource = Nothing

            Lst_Users.Text = ""



            Dt = New DataTable

            Da.Fill(Dt)



            Lst_Users.Items.Clear()

            For r = 0 To Dt.Rows.Count - 1

                Lst_Users.Items.Add(Dt(r)(1))

            Next



            Dt.Clear()

  Da.Dispose()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        ' تعبئة لستبوكس المستخدمين

        '=========================================================================================

كود :

       '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

        'عرض كل بيانات المستخدم بعد اختياره من اللست بوكس      

        Try

            Cindx = Val(Lst_Users.SelectedIndex)

            DS = New DataSet



            SQL = "Select * from Tab_Users where G_ID = '" & Cindx & "' "



            Da = New SqlDataAdapter(SQL, connDB)

            Da.Fill(DS, "tab_Users")



            Lbl_New_User.Text = DS.Tables(0).Rows(Cindx).Item(0)

            Txt_User_Name.Text = DS.Tables("Tab_Users").Rows(Cindx).Item(1)



            Cmb_User_Kind.SelectedIndex = Val(DS.Tables(0).Rows(Cindx).Item(2))

            Txt_PWD.Text = DS.Tables("Tab_Users").Rows(Cindx).Item(4)



            If DS.Tables(0).Rows(Cindx).Item(3) = 1 Then Rdbt_User_Active.Checked = True

            If DS.Tables(0).Rows(Cindx).Item(3) = 0 Then Rdbt_User_Not_Active.Checked = True



            Da.Dispose() : Da = Nothing : closeDB()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        'عرض كل بيانات المستخدم بعد اختياره من اللست بوكس     

        '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

كود :

tname.text=dt(listbox1.selectedindex)(1)

mobile.text=dt(listbox1.selectedindex)(2)

كود :

 If connDB.State <> ConnectionState.Closed Then connDB.Close()

 If connDB.State <> ConnectionState.Open Then connDB.Open()

كود :

Public Class Form2

    Dim constring As String = "Data Source=(Local)\sqlexpress;Initial Catalog=elec;MultipleActiveResultSets=False;Trusted_Connection=True;"

    Dim con As New SqlClient.SqlConnection(constring)

    Dim dt As DataTable

    Dim da2 As SqlClient.SqlDataAdapter

    Dim cmd As SqlClient.SqlCommandBuilder

    Private Sub gd()

        dt = New DataTable

        da2 = New SqlClient.SqlDataAdapter("select * from Tab_Users", con)

        cmd = New SqlClient.SqlCommandBuilder(da2)

        da2.Fill(dt)

        ListBox1.DataSource = dt

        ListBox1.DisplayMember = dt.Columns(1).ColumnName.ToString

    End Sub

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        gd()

    End Sub

    Private Sub ListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseClick

        If e.Button = Windows.Forms.MouseButtons.Left Then

            TextBox1.Text = dt(ListBox1.SelectedIndex)(1)

            TextBox2.Text = dt(ListBox1.SelectedIndex)(2)

            TextBox3.Text = dt(ListBox1.SelectedIndex)(3)

        End If

    End Sub

End Class

كود :

       If e.Button = Windows.Forms.MouseButtons.Left Then

            TextBox1.Text = dt(ListBox1.SelectedIndex)(1)

            TextBox2.Text = dt(ListBox1.SelectedIndex)(2)

            TextBox3.Text = dt(ListBox1.SelectedIndex)(3)

        End If

كود :

   Private Sub gd()

        dt = New DataTable

        da2 = New SqlClient.SqlDataAdapter("select * from Tab_Users", con)

        cmd = New SqlClient.SqlCommandBuilder(da2)

        da2.Fill(dt)

        ListBox1.DataSource = dt

        ListBox1.DisplayMember = dt.Columns(1).ColumnName.ToString

    End Sub