<VB.NET> DataGridView To DataTable

2020. 5. 25. 14:33VB.NET

728x90
반응형

 

DataBinding 안되어있는 DataGridView를 DataTable로 변환 하는 코드

''' <summary>

''' DataGridView To DataTable 

''' </summary>

''' <param name="dgv"> 변환 할 DataGridView를 넣는다.</param>

''' <returns></returns>

Private Function DataGridViewToDataTable(ByRef dgv As DataGridView) As DataTable

    Dim _dt As DataTable = New DataTable

 

    If _dt.Columns.Count = 0 Then

        For Each dgdr As DataGridViewColumn In dgv.Columns

            _dt.Columns.Add(dgdr.HeaderText)

        Next

    End If

 

    For Each row As DataGridViewRow In dgv.Rows

        Dim dRow As DataRow = _dt.NewRow()

 

        For j As Integer = 0 To row.Cells.Count - 1

            dRow(j) = row.Cells(j).Value

        Next

        _dt.Rows.Add(dRow)

    Next

 

    Return _dt

 

End Function



728x90
반응형