vb.net - データベース値 vb.net に基づいて DataGridView のチェック ボックスを設定します。

Question

ヘルプが必要な場所をより具体的に示すために、以下に指摘されているより明確に編集されたコードを参照してください。

私が達成しようとしているのはこれDataGridViewです。最初に別のものをハードコーディングしました。列は次のとおりです (順番に)。DataAdapterDataTableDataGridViewCheckBoxColumnDataGridView

[0]"ADD" (hard-coded `DataGridViewCheckBoxColumn`)
[1]"Job No" (from sql database)
[2]"Project No" (from sql database)
[3]"Project Name" (from sql database)

またComboBox、別のデータベースからユーザー名が入力されています（ただし、2つには共通のキーuserIdがあり、特定のプロジェクトを別のフォームで編集する管理者権限を持つユーザーに関連付けられています）。このフォームの目的は、そのユーザーにプロジェクトを追加して、追加のプロジェクトを編集するための管理者権限を付与できるようにすることです。

DataGridViewすべてのプロジェクトを入力する必要があり、DataGridViewCheckBoxColumn(データベース内の既存の情報に従って) userId が既に管理者権限を持つことに関連付けられているプロジェクトに応じて、プロジェクトに '.checked = true' を入力する必要があります。次に、新しいプロジェクトを追加する機能が必要ですが、新しいチェックボックスをオンにしてから をクリックしbtnUpdate、それに応じてデータベースを更新します。

に入力しDataGridView、 を作成しDataGridViewCheckBoxColumn、その列を非読み取り専用にすることはできましたが、プロジェクトに関連付けられているボックスをチェックすることはできません...以下はコードです...助けてください?

Imports System.Data.SqlClient

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'there is where usernames will be filled into dropdown from Proj_users database
        Dim fillUName As New SqlCommand("SELECT UName FROM Proj_User WHERE Active = 1 and Admin = 1", frmConnect.DB)
        Dim dr As SqlDataReader = fillUName.ExecuteReader()

        While dr.Read()
            If dr.HasRows = True Then
                cmbAddUName.Items.Add(dr("UName"))
            End If
        End While
        dr.Close()

    End Sub

    Private Sub cmbAddUName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbAddUName.SelectedIndexChanged

        Call fillAddGrid(cmbAddUName.Text)

    End Sub

    Sub fillAddGrid(ByVal PT_User As String)


        'column created for checkbox (to be able to check additional projects that will then be added to the user indicated in the combobox's privileges - let's them be able to change that project's details in another form)
        Dim chk As New DataGridViewCheckBoxColumn()
        grdAddProjectPrivs.Columns.Add(chk)
        chk.FalseValue = False
        chk.TrueValue = True
        chk.HeaderText = "Add"
        chk.Name = "Add"
        chk.ReadOnly = False

        'use stored procedure with parameter to generate recordset
        Dim sqlCmd As New SqlCommand
        sqlCmd.Connection = frmConnect.DB
        sqlCmd.CommandType = CommandType.StoredProcedure
        sqlCmd.CommandText = "SP_ManagePrivs"

        'IF @SP_Use = 3     -- for ADDING privileges, FILL GRID with ALL projects so can add which ones they need
        'BEGIN()
        '   SELECT
        '       P.JobNo AS [Job No],
        '       P.ProjNo AS [Project No],
        '       P.ProjName AS [Project Name]                
        '   FROM Projects P JOIN User_Projects UP ON P.JobNo = UP.JobNo
        '   WHERE P.Deleted = 0 and P.Active = 1
        '   ORDER BY UP.UserID, P.JobNo
        'End

        'for adding privs, need to show all projects
        sqlCmd.Parameters.Add(New SqlParameter("@SP_Use", 3))
        sqlCmd.Parameters.Add(New SqlParameter("@UName", DBNull.Value))
        sqlCmd.Parameters.Add(New SqlParameter("@Active", DBNull.Value))
        sqlCmd.Parameters.Add(New SqlParameter("@Admin", DBNull.Value))

        sqlCmd.ExecuteNonQuery()

        'use DataAdapter to fill datatable
        Dim sqlDA As New SqlDataAdapter()
        sqlDA.SelectCommand = sqlCmd
        Dim table As New DataTable
        sqlDA.Fill(table)
        grdAddProjectPrivs.DataSource = table
        sqlDA.Dispose()

        'reading to get userid to checkboxes accordingly
        Dim userID As New SqlCommand("SELECT JobNo FROM User_Projects WHERE PT_User = '" & cmbAddUName.Text & "'", frmConnect.DB)
    Dim dr As SqlDataReader = userID.ExecuteReader()


    '****THIS IS WHERE I THINK I NEED HELP!!!!
    While dr.Read()
        If dr.HasRows = True Then
            If grdAddProjectPrivs.Columns.Contains(dr("JobNo")) Then
                For Each row As DataGridViewRow In grdAddProjectPrivs.Rows
                    row.Cells("Add").Value = True
                Next
            End If
        End If
    End While
    dr.Close()

    End Sub


    Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click

        'HERE I AM LOOKING TO UPDATE THE DATABASE BY ADDING THE USER'S UserID number TO THAT SPECIFIC PROJECT THAT THEY CHECK OFF WITH THE CHECKBOX.
        'i'm thinking once i get the gist of manipulating the checkboxes down pat i can figure this out but if there is anything additional i need to know please advise?

    End Sub

End Class

SQL テーブルのレイアウトの内訳: USER_PROJECTS TABLE CONSISTS OF (UserID, UserName, JobNo); プロジェクト テーブルの構成 (UserID、JobNo、ProjNo、ProjName)