Need help with datagridview problem!

[Hansduncan]

Could someone please help me out with this problem I have been struggling with this past week? Some background info: I am trying to insert new row(s) into a datagridview called "CustSalesOpportunityLineDataGridView" (that is databound to a table called "custsalesopportunityline" in a master-detail form that contains includes the header info as well). I have also created a generic product selection form that contains a datagridview called "ArticleDataGridView" that displays all the info and contains the filters that users need to efficiently search and filter out products. The dataset for the "ArticleDataGridView" is based on a view that I have created in the database. On the "ArticleDataGridView" I have created a column called "Select_Article" that is a DataGridViewCheckBoxColumn. (false value = 0, indeterminate = 0, true =1). If the users want to add a particular product to the SalesOpportunityLine datagridview they should be able to check the checkbox for each desired row and then click the AddAndContinueButton. The Select_Article checkbox column is the leftmost column of the datagridview. For each product that they have selected in the articledatagridview a new row in the "CustSalesOpportunityLineDataGridView" should be created and displayed as well as the articleID, name and Salesopportunityheaderid. Is the code below written correctly to: Test for the checkbox.checked=true on the first column of the datagridview Write values to the "CustSalesOpportunityLineDataGridView". Nothing happens when I run the code in debug..... Private Sub AddAndContinueButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddAndContinueButton.Click For Each dgvRow As DataGridViewRow In Me.ArticleDataGridView.SelectedRows If Me.ArticleDataGridView.Item(1, ArticleDataGridView.CurrentRow.Index).Value = 1 Then Dim dt As DataTable = Me.SalesOpportunity.Tables("custsalesopportunityline") Dim dtRow As DataRow = dt.NewRow() dtRow("Salesopportunityheaderid") = NewSalesOpportunity.SalesoppHeaderID dtRow("articleid") = dgvRow.Cells("ArticleIdDataGridViewTextBoxColumn").Value dtRow("work_articlename") = dgvRow.Cells("ProduktnavnDataGridViewTextBoxColumn").Value dt.Rows.Add(dtRow) End If Next End Sub