[essawq]

السلام عليكم ورحمة الله وبركاتة
اريد كود بحث لصلاحيات المستخدمين او لا ستخدامة للبحث عن اي شيء يحمل قيمة صح او خطا
يوجد فورم وبها كومبو بكس 
ويوجد بها مجموعة من الشيك بوكس اريد عند تحديد اسم مستخدم من الكومبو بكس يظهر لي الصلاحيات الممنوحة لة عن طريق الشيك بوكس .


طبعا استخدمت هذا الكود بعد تحويلة من سي شارب الى في بي وكلة اخطاء

مشكورين

كود :

Private Sub cbxUser1_SelectionChangeCommitted(ByVal sender As Object, ByVal e As EventArgs)
   Try
       tblSearch.Clear()
       tblSearch = db.readData("select * from User_Setting where User_ID=" & cbxUser1.SelectedValue & "", "")

       If tblSearch.Rows.Count >= 1 Then

           If Convert.ToDecimal(tblSearch.Rows(0)(1)) = 1 Then
               checkUnit.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(1)) = 0 Then
               checkUnit.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(2)) = 1 Then
               checkPermission.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(2)) = 0 Then
               checkPermission.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(3)) = 1 Then
               checkViewItems.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(3)) = 0 Then
               checkViewItems.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(4)) = 1 Then
               checkSetting.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(4)) = 0 Then
               checkSetting.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(5)) = 1 Then
               checkaddItem.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(5)) = 0 Then
               checkaddItem.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(6)) = 1 Then
               checkItemsGroup.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(6)) = 0 Then
               checkItemsGroup.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(7)) = 1 Then
               checkAddStore.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(7)) = 0 Then
               checkAddStore.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(8)) = 1 Then
               checkStoreGard.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(8)) = 0 Then
               checkStoreGard.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(9)) = 1 Then
               checkStoreTransfire.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(9)) = 0 Then
               checkStoreTransfire.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(10)) = 1 Then
               checkStoreOut.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(10)) = 0 Then
               checkStoreOut.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(11)) = 1 Then
               checkStoreTransfireReport.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(11)) = 0 Then
               checkStoreTransfireReport.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(12)) = 1 Then
               checkStoreOutReport.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(12)) = 0 Then
               checkStoreOutReport.Checked = False
           End If
       End If

   Finally
   End Try
End Sub