Ver Mensaje Individual
  #3 (permalink)  
Antiguo 19/12/2012, 14:37
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 perdona, se me fueron un par de errores

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.         Lst_HistoricoFabricacion.Items.Clear()
  5.  
  6.         expression = "Referencia = '" & TextBox1.Text & "' and Lote = '" & TextBox2.Text &"'"
  7.         ' También se pueden usar expresiones de ordenamiento.
  8.        sortOrder = "Nº_HR DESC"
  9.  
  10.         ' Se retorna un arreglo de filas.
  11.        Dim Rows() As DataRow = Tabla.Select(expression, sortOrder)
  12.        
  13.         For Each _row As DataRow In Rows
  14.             Dim item As ListViewItem
  15.             item = New ListViewItem(_row.Item("Referencia").ToString)
  16.             'Agrego los demas datos a los SubItems de item
  17.            item.SubItems.Add(_row.Item("Lote").ToString)
  18.             item.SubItems.Add(_row.Item("Nº_HR").ToString)
  19.             item.SubItems.Add(_row.Item("Cant_Inicial").ToString)
  20.             item.SubItems.Add(_row.Item("Fecha_Inicio").ToString)
  21.             item.SubItems.Add(_row.Item("Cant_Fin").ToString)
  22.             item.SubItems.Add(_row.Item("Fecha_Fin").ToString)
  23.             item.SubItems.Add(_row.Item("Obs_Produccion").ToString)
  24.             item.SubItems.Add(_row.Item("Obs_Pedido_Material").ToString)
  25.             item.SubItems.Add(_row.Item("Reg").ToString)
  26.             'Agrego el item a la colección de listViewItem's de Lst_Operaciones.
  27.            Lst_HistoricoFabricacion.Items.Add(item)
  28.         Next
  29.                
  30.     End Sub