Visual studio 2012 我想让用户使用VB.Net 2012和sql server 2012，使用datagrid访问特定的公司名称显示

我需要知道该用户是否已经拥有权限意味着。。必须检查该列。。。我使用了以下代码..它不工作。。。请帮帮我。。 我的数据网格名称DGV1 在我的旧版本中，他们正在为此使用列表视图。。我必须使用数据网格。。我还在datagrid名称中添加了datagridcheckbox列 因此，如果用户已拥有权限，则复选框已被选中。。因此，如果用户取消选中该选项，许可证将被吊销。。撤消权限的操作正常。。bt我无法显示已授予所需公司访问权限的用户列表

 Private Sub getuserlist()
    strCon = "Server=PTMCPC25;Database=CSSYSDB;uid=sa;pwd=Sqlsvr12"
    sqlCon = New SqlClient.SqlConnection(strCon)
    sqlCon.Open()

    coid = getcoid()
    Dim i, j, k As Integer
    Dim aruid(100) As String
    Dim count As Integer

    Dim rs4 As SqlClient.SqlDataReader
    Dim cmd As New SqlClient.SqlCommand("SELECT * from sy30102 order by uid ", sqlCon)
    j = 0
    ' count = New DGV1.BindingContext(DGV1.DataSource, DGV1.DataMember).Count
    rs4 = cmd.ExecuteReader
    If rs4.HasRows Then
        Do While rs4.Read
            count = count + 1
            aruid(j) = rs4("uid")
            j = j + 1
        Loop
        rs4.Close()
    End If
    rs4.Close()
    ds = New DataSet
    Dim da As SqlDataAdapter
    da = New SqlDataAdapter("Select uid 'USER ID',uname 'USER NAME' from sy30102 order by uid", sqlCon)
    ds.Clear()
    da.Fill(ds, "ConnToSqlDrp")
    If ds Is Nothing = True Then
        Exit Sub
    Else
        da.Fill(ds)
        DGV1.DataSource = ds.Tables(0)
    End If


    k = count - 1
    For i = 0 To k


        Dim rs1 As SqlClient.SqlDataReader
        Dim cmd2 As New SqlClient.SqlCommand("Select * from sy30103 where COYID = '" & coid & "' and UID = '" & aruid(i) & "'", sqlCon1)
        Try
            rs1 = cmd2.ExecuteReader
            If rs1.HasRows Then

                ds.Tables(0).Rows(i).Item("SEL").value = True
                'Next
            End If
            rs1.Close()

        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
    Next
    closecon()
End Sub

---

没有人回答…我自己我找到了解决办法

私有子getuserlist

    Try
        If cmbcname.Text <> "" Then
            For Each ROW As DataGridViewRow In DGV1.Rows

                Dim rs1 As SqlClient.SqlDataReader
                Dim cmd2 As New SqlClient.SqlCommand("Select * from sy30103 where COYID = '" & cmbcname.SelectedValue & "' and UID = '" & ROW.Cells("USER ID").Value.ToString & "'", sqlCon)
                Try
                    rs1 = cmd2.ExecuteReader
                    If rs1.HasRows Then
                        'For Each row As DataGridViewRow In DGV1.Rows
                        '    l = DGV1.CurrentRow.Index
                        'row.Cells("Column1").Value = True
                        ROW.Cells("SEL").Value = True
                    Else
                        ROW.Cells("SEL").Value = False
                        'Next
                    End If
                    rs1.Close()
                    'rs1 = cmd2.ExecuteReader
                Catch ex As Exception
                    MsgBox(ex.Message.ToString())
                End Try
            Next
        End If
    Catch ex As Exception
    End Try

    'closecon()
End Sub