none
DataGrid Exporta muchos Decimales RRS feed

  • Pregunta

  • Hola, ojala me pudieran ayudar con esto.

    tengo un data grid y cuando lo exporto a excel, me da con muchos decimales solo los campos que lo definí como single en la BD mas no las que definí como Double. Que me esta faltando?

    Aquí esta el código:

      Function GridAExcel(ByVal ElGrid As DataGridView) As Boolean

            'Creamos las variables
            Dim exApp As New Microsoft.Office.Interop.Excel.Application
            Dim exLibro As Microsoft.Office.Interop.Excel.Workbook
            Dim exHoja As Microsoft.Office.Interop.Excel.Worksheet

            Try
                'Añadimos el Libro al programa, y la hoja al libro
                exLibro = exApp.Workbooks.Add
                exHoja = exLibro.Worksheets.Add()

                ' ¿Cuantas columnas y cuantas filas?
                Dim NCol As Integer = ElGrid.ColumnCount
                Dim NRow As Integer = ElGrid.RowCount

                'Aqui recorremos todas las filas, y por cada fila todas las columnas y vamos escribiendo.
                For i As Integer = 1 To NCol
                    exHoja.Cells.Item(1, i) = ElGrid.Columns(i - 1).DataPropertyName
                    'exHoja.Cells.Item(1, i).HorizontalAlignment = 3
                Next

                For Fila As Integer = 0 To NRow - 1
                    For Col As Integer = 1 To NCol
                        exHoja.Cells.Item(Fila + 2, Col) = ElGrid.Rows(Fila).Cells(Col - 1).Value

                    Next
                Next
                'Titulo en negrita, Alineado al centro y que el tamaño de la columna se ajuste al texto
                exHoja.Rows.Item(1).Font.Bold = 1
                exHoja.Rows.Item(1).HorizontalAlignment = 3
                exHoja.Columns.AutoFit()


                'Aplicación visible
                exApp.Application.Visible = True

                exHoja = Nothing
                exLibro = Nothing
                exApp = Nothing

            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Error al exportar a Excel")
              
                Return False
            End Try

            Return True

        End Function

    gracias.

    sábado, 18 de agosto de 2018 16:23