Duda sobre llenado en ListView

[Esfinge02]

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

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

[Aquaventus]

Te has fijado si tu consulta arroja datos? Colocale un MessageBox en esta parte

Código vb.net:

lstrpt.Items.Clear()
Dim con As New OleDbDataAdapter(consulta, ConSQL)
Dim pp As New DataTable
con.Fill(pp, "0")
MessageBox.Show("Existen " & pp.Rows.Count & " filas");
 

Si el mensaje te arroja mas de 0 filas es porque si llena correctamente tu datatable y el error no seria al momento de que agregas a tu listview. Y si arroja 0 tu error está en no controlar la excepción de que no haya filas y al no haber filas tu estas forzando jalar datos de la primera fila cuando no hay ninguna en tu datatable . Saludos!.

[Esfinge02]

acabo de aser lo que me dices y si me arrojaba cero filas, pero era por un filtro en las fechas pero aun así no me llena el listview, no se que pueda ser seguiré buscando, ahora solo como saber llenar el list

[Aquaventus]

no te llena tu listview por lo mismo que no hay datos en tu datatable, por eso lo del mensaje no se encontró ningún valor en la posiscion cero, la forma de como llenas tu listview está bien, solo que no tienes datos, y como dije debes controlar las excepciones de cuando no hay datos. Saludos!.

[Esfinge02]

ya corregí lo del contenido del datatable ya tiene datos, y no me marca ningun error solo que no me despliega ningún dato en el list, cuando lo ejecuto

[Esfinge02]

buno al final quedo asi

Dim i As Integer = 0
While i < pp.Rows.Count
lstrpt.Items.Add((i + 1).ToString)
lstrpt.Items(i).SubItems.Add(Convert.ToString(pp.R ows(i)("monto")))
lstrpt.Items(i).SubItems.Add(Convert.ToString(pp.R ows(i)("Pago_con_Puntos")))
lstrpt.Items(i).SubItems.Add(Convert.ToString(pp.R ows(i)("fecha")))
i = i + 1
End While

[Aquaventus]

Excelente!Saludos!.!