Cambio en foramto de excel
This commit is contained in:
@@ -145,7 +145,10 @@ Partial Class RepGastosCC
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
|
Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
|
||||||
GvDatos.ExportToExcelG("ReporteGastos" & Now.ToShortDateString & ".xlsx")
|
Dim StrFiltro As New StringBuilder
|
||||||
|
If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio: {0}", txtFechaI.Text)
|
||||||
|
If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin: {0}", txtFechaF.Text)
|
||||||
|
GvDatos.ExportToExcelG("ReporteGastos" & Now.ToShortDateString, "Gastos Acumulados", UsuarioActual, StrFiltro.ToString, 100, 200)
|
||||||
End Sub
|
End Sub
|
||||||
' Note, it is important to override the form verification in order to successfully call a GridView1.RenderControl method.
|
' Note, it is important to override the form verification in order to successfully call a GridView1.RenderControl method.
|
||||||
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
|
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
|
||||||
|
|||||||
Reference in New Issue
Block a user