wewastw

 

    Function headFuncion(ByVal dv As DataGridView)

        Dim dt As New DataTable()

        Dim dc As DataColumn

        ' Dim dv As New DataGridView

        Dim dr As DataRow

        For id As Integer = 0 To dv.ColumnCount - 1

            dc = New DataColumn

            dc.ColumnName = dv.Columns(id).DataPropertyName.ToString()

            dt.Columns.Add(dc)

 

        Next

        For ind As Integer = 0 To dv.Rows.Count - 1

            dr = dt.NewRow()

            For inde As Integer = 0 To dv.Columns.Count - 1

                If dv.Rows(ind).Cells(inde).Value = "" Then

                    dr(inde) = ""

                Else

                    dr(inde) = dv.Rows(ind).Cells(inde).Value.ToString

                End If

            Next

            dt.Rows.Add(dr)

        Next

 

        Return dt