Ver Mensaje Individual
  #2 (permalink)  
Antiguo 19/12/2012, 14:32
Avatar de jhonjairo00
jhonjairo00
 
Fecha de Ingreso: noviembre-2010
Ubicación: Bogotá D.C.
Mensajes: 31
Antigüedad: 14 años
Puntos: 6
Respuesta: Problema de filtro en Data Adapter

Hola

Bueno, si lo que quieres es hacer filtros usando expresiones que tomas desde varios TextBox lo que puedes hacer es filtrar directamente el DataTable y luego llenas tu ListView con lo que te quede en la DataTable, usando el método Select de este objeto. Mira el ejemplo así es más gráfico

Código vb:
Ver original
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         Dim expression As String
  3.         Dim sortOrder As String
  4.  
  5.         expression = "Referencia = '" & TextBox1.Text & "' and Lote = '" & TextBox2.Text &"'"
  6.         ' También se pueden usar expresiones de ordenamiento.
  7.        sortOrder = "Nº_HR DESC"
  8.  
  9.         ' Se retorna un arreglo de filas.
  10.        Dim Rows() As DataRow = Tabla.Select(expression, sortOrder)
  11.        
  12.         For Each _row As DataRow In foundRows
  13.             Dim item As ListViewItem
  14.             item = New ListViewItem(_row.Item("Referencia").ToString)
  15.             'Agrego los demas datos a los SubItems de item
  16.            item.SubItems.Add(_row.Item("Lote").ToString)
  17.             item.SubItems.Add(_row.Item("Nº_HR").ToString)
  18.             item.SubItems.Add(_row.Item("Cant_Inicial").ToString)
  19.             item.SubItems.Add(_row.Item("Fecha_Inicio").ToString)
  20.             item.SubItems.Add(_row.Item("Cant_Fin").ToString)
  21.             item.SubItems.Add(_row.Item("Fecha_Fin").ToString)
  22.             item.SubItems.Add(_row.Item("Obs_Produccion").ToString)
  23.             item.SubItems.Add(_row.Item("Obs_Pedido_Material").ToString)
  24.             item.SubItems.Add(_row.Item("Reg").ToString)
  25.             'Agrego el item a la colección de listViewItem's de Lst_Operaciones.
  26.            Lst_HistoricoFabricacion.Items.Add(item)
  27.         Next
  28.                
  29.     End Sub

De esta forma ya los datos que se muestran quedarán filtrados...

Espero te sirva...