Visual Basic - Error al recorrer una colección

Life is soft - evento anual de software empresarial
   
Vista:

Error al recorrer una colección

Publicado por Martin (3 intervenciones) el 24/08/2017 15:29:13
Hola, que tal.

Estoy intentando recorrer una colección a través de un bucle dentro de una función y me tira object variable or with block variable not set cuando comienza a recorrer el for:


Les dejo el código:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function CargaGrillaComers(pr As Collection)
 
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sSql As String
 
sSql = ""
        sSql = sSql & "Select * from Comers "
        sSql = sSql & "and Prestamo" & ArmaCadena(pr)
 
If Conectar() Then
    rs.CursorLocation = adUseClient
    rs.Open sSql, CN
    Set Comers.grGrilla.DataSource = rs
End If
 
End Function


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function ArmaCadena(COL As Collection)
 
 
i = 1
 
sSql = "" & "in ("
 
For i = i To COL.Count  --------------------> Aquí me tira el error
     sSql = sSql & COL.Item(i) & ","
Next
 
sSql = Left(sSql, Len(sSql) - 1)
 
sSql = sSql & ")"
 
 
End Function



Saludos!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Error al recorrer una colección

Publicado por Martin (3 intervenciones) el 24/08/2017 15:53:32
Ya encontré el error, la variable pr que le pasaba a la funcion armacadena estaba vacía...perdón y gracias!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar