Problemas con referencia excel y filtrado
Publicado por Veronica (28 intervenciones) el 12/11/2009 02:26:03
Hola a todos:
Tengo el código para poder exportar datos desde un datagridview hacia excel, y hasta ahí todo fenómeno.
Pero desde q utilicé el código, empecé a tener problemas con el filtrado de datos en el datagridview.
Por ejemplo, cuando coloco la referencia Microsoft.Office.Interop.Excel automáticamente me señala en azul el criterio de filtrado diciéndome q son demasiado argumentos para la instrucción Select. Y si por caso se me ocurre quitar la referencia, ese error no lo tengo pero no me deja filtrar tampoco.
¿Alguien tiene idea q puede ser?....antes no sucedía esto y la verdad q me cansé de darle vueltas pero no logro mejorarlo.
Este es el código q utilizo para el filtrado:
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim mitabla As DataTable = Me.ContactosDataSet.Contactos
Dim filas() As DataRow
filas = mitabla.Select("Apellido LIKE '" & TextBox1.Text & "%'")
If filas.Length > 0 Then
dtgContactos.DataSource = filas
dtgContactos.Refresh()
Me.ContactosDataSet.Clear()
End If
End Sub
Tengo el código para poder exportar datos desde un datagridview hacia excel, y hasta ahí todo fenómeno.
Pero desde q utilicé el código, empecé a tener problemas con el filtrado de datos en el datagridview.
Por ejemplo, cuando coloco la referencia Microsoft.Office.Interop.Excel automáticamente me señala en azul el criterio de filtrado diciéndome q son demasiado argumentos para la instrucción Select. Y si por caso se me ocurre quitar la referencia, ese error no lo tengo pero no me deja filtrar tampoco.
¿Alguien tiene idea q puede ser?....antes no sucedía esto y la verdad q me cansé de darle vueltas pero no logro mejorarlo.
Este es el código q utilizo para el filtrado:
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim mitabla As DataTable = Me.ContactosDataSet.Contactos
Dim filas() As DataRow
filas = mitabla.Select("Apellido LIKE '" & TextBox1.Text & "%'")
If filas.Length > 0 Then
dtgContactos.DataSource = filas
dtgContactos.Refresh()
Me.ContactosDataSet.Clear()
End If
End Sub
Valora esta pregunta
0