tengo el siguiente codigo, la verdad no se si es correcoto o si alla aotra forma de aserlo, pido consejo.
cuando lo lo ejecuto si el try me manda un error de que no se encontró ningún valor en la posiscion cero pro la verdad no se aque aga referencia o si lo estoy enla sando mal, por cual quier cosa gracias
dejo el código para que lo vean
Cita: Dim consulta As String
If (pass = "pass") Then
consulta = ("SELECT top " + superior + " idventa as NoVenta,Monto, puntos as Pago_con_Puntos,Fecha FROM Ventas where fecha between #" + ejemplo + "# and #" + ejemplo2 + "# order by rnd(idventa)")
Else
consulta = ("SELECT idventa as NoVenta,Monto, puntos as Pago_con_Puntos,Fecha FROM Ventas where fecha between #" + ejemplo + "# and #" + ejemplo2 + "# order by fecha desc")
End If
Try
lstrpt.Items.Clear()
Dim con As New OleDbDataAdapter(consulta, ConSQL)
Dim pp As New DataTable
con.Fill(pp, "0")
Dim item As New ListViewItem
With pp.Rows
item = lstrpt.Items.Add(Convert.ToString(pp.Rows(0)("NoVe nta")))
item = lstrpt.Items.Add(Convert.ToString(pp.Rows(0)("mont o")))
item = lstrpt.Items.Add(Convert.ToString(pp.Rows(0)("Pago _con_Puntos")))
item = lstrpt.Items.Add(Convert.ToString(pp.Rows(0)("fech a")))
End With
Catch ex As Exception
MessageBox.Show("El Reporte no Pudo se ejecutado, porfavor vuelva a intentarlo", "Mensja del sistema", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try