[RESOLVED] User Created Unbound DGV

[billboy]

Hi guys I am stuck on have a user enter data into a DGV and then creating a table out of that data. I need to know how to take the data the user enters into a DGV cell and have addded to the dgv so that it can then be added the a table here is what i got so far:

Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.DataGridView1.Show()
        Me.DataGridView1.Columns.Add("FullStreetAddress", "FullStreetAddress")
        Me.DataGridView1.Columns.Add("City", "City")
        Me.DataGridView1.Columns.Add("State", "State")
        Me.DataGridView1.Columns.Add("Zip", "Zip")
        Me.DataGridView1.Columns.Add("Bedrooms", "Beds")
        Me.DataGridView1.Columns.Add("Baths", "Baths")
        Me.DataGridView1.Columns.Add("BuildingSize", "BuildingSize")
        Me.DataGridView1.Columns.Add("Lot Size", "LotSize")
        Me.DataGridView1.Columns.Add("ListPrice", "ListPrice")
        Me.DataGridView1.Columns.Add("ListingDate", "ListDate")
        Me.DataGridView1.Columns.Add("ListingType", "ListType")
        Me.DataGridView1.Columns.Add("Latitude", "Latitude")
        Me.DataGridView1.Columns.Add("Longitude", "Longitude")
        Me.DataGridView1.Columns.Add("GLAMax", "GLAMax")
 
        With Me.DataGridView1.Rows
            Dim row1 As String() = {Me.DataGridView1.Columns(0).Name, }
 
        End With
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim dtlist As New DataTable()
        dtlist = TryCast(DataGridView1.DataSource, DataTable)
 
    End Sub
 
    Public Shared Function DataGridViewToDataTable(ByVal dtg As DataGridView) As DataTable
        Try
            Dim dtlist As New DataTable()
            Dim row As DataRow
            Dim TotalDatagridviewcolumns As Integer = dtg.ColumnCount - 1
 
            For Each c As DataGridViewColumn In dtg.Columns
                Dim idColumn As DataColumn = New DataColumn()
                idColumn.ColumnName = c.Name
                dtlist.Columns.Add(idColumn)
 
            Next
            For Each dr As DataGridViewRow In dtg.Rows
                row = dtlist.NewRow
                For cn As Integer = 0 To TotalDatagridviewcolumns
                    row.Item(cn) = (dr.Cells(cn).Value)
                Next
                dtlist.Rows.Add(row)
            Next
 
            Return dtlist
        Catch ex As Exception
            Return Nothing
 
        End Try
    End Function