[RESOLVED] DGV error

Hi All,

I am getting an error when saving my data to a datatable

"Input string was not in a correct format.Couldn't store <ClientID> in fnClientID Column. Expected type is Int32."

I was able to get past the errors by setting the data types to string and discovered the Heading was being saved to my datatable. How do I avoid this?

Code:

---

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        intGrpSize = n

        Create_ClientTable()
       

            For Each cell As DataGridViewCell In dgvClients.SelectedCells
                MessageBox.Show(cell.Value.ToString)
            Next

            'dgvClients.DataSource = ClientTable
            For Each row As DataGridViewRow In Me.dgvClients.SelectedRows()
           
            'Clientid is int32, clientname is string & fnprgcode id int32   
            _ClientTable.Rows.Add("ClientID", "ClientName", "fnPrgCode")
            Next
       
        frmChildWindow.CreateSession()
        'Dim frm As New frmCaseNts
        'frm.ShowDialog()
        Me.Close()
    End Sub

---

You appear to be trying to get the data from each row in your grid and adding that data to a new row in a DataTable, but that is not what you're actually doing. This line:

vb.net Code:

_ClientTable.Rows.Add("ClientID", "ClientName", "fnPrgCode")

isn't getting anything from the grid. It's just going to add those literal strings to the DataTable over and over. You need to actually get the data values from the current grid row, which is contained in the 'row' variable. You need to specify which cell of the row you want and then get the Value property of that cell. You can do that by specifying the name of the column, which is presumably what those three strings are:

vb.net Code:

_ClientTable.Rows.Add(row.Cells("ClientID").Value, row.Cells("ClientName").Value, row.Cells("fnPrgCode").Value)

OK, I am now getting one row saved to my datatable. Is there something else I should be doing for the DGV. It is getting the last record selected.

Here is where I save to DataTable

Code:

---

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        intGrpSize = n

        Create_ClientTable()
     
        For Each row As DataGridViewRow In Me.dgvClients.SelectedRows()
            _ClientTable.Rows.Add(row.Cells("ClientID").Value, row.Cells("Name").Value, row.Cells("Program").Value)
        Next
       
        frmChildWindow.CreateSession()
        Me.Close()
    End Sub

---

Here is where I am loading a DGV on another form to show me the results

Code:

---

Private Sub Load_DGV()
        dataGridView1.DataSource = _ClientTable
        End Sub

---

Do you have multiple selected rows in dgvClients?

yes. I had it set in the designer but double checked and put it in the create code

Code:

---

Private Sub create_dgv()
        dgvClients.Dock = DockStyle.Fill
        'dgvClients.VirtualMode = True
        dgvClients.AutoGenerateColumns = False
        dgvClients.DataSource = dsProfile1.Enrollment
        dgvClients.MultiSelect = True

        Dim column As DataGridViewColumn = _
            New DataGridViewTextBoxColumn()

        'Checkbox column unbound
        column = New DataGridViewCheckBoxColumn()
        'column.DataPropertyName = ""
        column.Name = "Selected_Client"

        dgvClients.Columns.Add(column)

        'ClientID Column
        column = New DataGridViewTextBoxColumn()
        column.DataPropertyName = "fnClientId"
        column.Name = "ClientID"
        dgvClients.Columns.Add(column)

        'Name Column
        column = New DataGridViewTextBoxColumn()
        column.DataPropertyName = "client_name"
        column.Name = "Name"
        dgvClients.Columns.Add(column)

        'Program Column
        column = New DataGridViewTextBoxColumn()
        column.DataPropertyName = "fnPrgCode"
        column.Name = "Program"
        dgvClients.Columns.Add(column)

        'Name the Column Header
        dgvClients.Columns(1).HeaderText = "Client ID"
        dgvClients.Columns(2).HeaderText = "Name"
        dgvClients.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
        dgvClients.Columns(3).HeaderText = "Program No"

        Controls.Add(dgvClients)
        Me.AutoSize = True

        dgvClients.Columns(0).ReadOnly = False

    End Sub

---

But are there actually multiple rows selected? Have you debugged your code? Do that before posting here because it's easier for you to see what your code is doing than it is for us.

I used this to verify that each column and each row was being considered. I selected 3 rows and I got 12 message boxes (4 columns per row county the check box which has a value of 1)

Code:

---

For Each cell As DataGridViewCell In dgvClients.SelectedCells
                MessageBox.Show(cell.Value.ToString)
            Next

---

But have you debugged the code you already have? Did it add the same number of rows to the DataTable as you have rows selected in the grid?

I think it may not be.

Right after sending my last reply I added a DGV directly under the one I make selections in and used the same code to fill it as I am on the other form.

It only displays one record. Same results

How can I do a row count on the ClientTable? Or, what other methods are there to verify the data?

It does not have a dataset or a tableadapter so I am not sure how to do it.

I found the problem. I will post my solution and WHAT I was doing wrong in the later AM and mark it resolved.

As always, thanks for your help John.

Hint: it was in the Private Sub dgvClients_CellContentClick event where I am also keeping count by the number of check boxes selected.