遍历DataGridView

    Public Function dvtodt(ByVal dv As DataGridView) As DataTable
        Dim dt As New DataTable()
        Dim dc As DataColumn
        For i As Integer = 0 To dv.Columns.Count - 1
            dc = New DataColumn()
            dc.ColumnName = dv.Columns(i).HeaderText.ToString()
            dt.Columns.Add(dc)
        Next
        For j As Integer = 0 To dv.Rows.Count - 2
            Dim dr As DataRow = dt.NewRow()
            For x As Integer = 0 To dv.Columns.Count - 1
                dr(x) = dv.Rows(j).Cells(x).Value
            Next
            dt.Rows.Add(dr)
        Next
        Return dt
    End Function