[Abdelazez.Ahmad]

السلام عليكم ورحمة الله وبركاته
كل عام أنتم جميعا بخير بمناسبة عيد الأضحي المبارك أعاده عليكم جميعا بالخير والبركات

فين حين ربطت اللست بوكس بقاعدة البيانات من خلال DT بجدول المستخدمين
أود التعديل علي بيانات مستخدم ما بعد اختياره من لست بوكس المعبئة من DT

تظهر لي هذه الرسالة عند اختيار احد المستخدمين في لست بوكس
مع العلم قمت بارجاع البيانات لاسم المختار من لست بوك بداتاست مرة وبداتا تيل مرة أخري وتظهر نفس الرسالة

وهذا كود ربط اللست بوكس

كود :

       ' تعبئة لستبوكس المستخدمين
       '=========================================================================================
       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
       'عرض كل بيانات المستخدم بعد اختياره من اللست بوكس    
       '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\