[سؤال] اريد كود بحث كومبوبكس وتظهر النتيجة على الشيك بوكس يعني صح او خطا

كود :

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

كود :

Function FindByColumn(TableName As String, ColumnName As String, Txt_Find As String) As SqlDataReader



        Dim Cmd As New SqlCommand("select * from " & TableName & " where " & ColumnName & "=@ID", Con)

        Cmd.Parameters.AddWithValue("@ID", Txt_Find)



            If Con.State = 1 Then Con.Close()

            Con.Open()



            Dim dr As SqlDataReader = Cmd.ExecuteReader

            dr.Read()

            If dr.HasRows Then

                Return dr

                dr.Close()

            If Con.State = 1 Then Con.Close()

        Else

                Return dr

            If Con.State = 1 Then Con.Close()

        End If



            Return dr

    End Function

كود :

 Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Try

            Dim dr As SqlDataReader

            dr = FindByColumn("Table_1", "userName", ComboBox1.Text)

            If dr.HasRows Then

                TextBox1.Text = dr("userName")

                TextBox2.Text = dr("pass")

                CheckBox1.Checked = dr("p1")

                CheckBox2.Checked = dr("p2")

                CheckBox3.Checked = dr("p3")

            Else

                TextBox1.Text = ""

                TextBox2.Text = ""

                CheckBox1.Checked = False

                CheckBox2.Checked = False

                CheckBox3.Checked = False

            End If

        Catch ex As Exception

        End Try

    End Sub