Programación General > Visual Basic 6.0 e inferiores

 Re: Pasar por referencia un array de texbox

(1/1)

Sareny:
Intento crear un procedure en el cual modifico un array de textbox pero no se como pasarlo para que me funcione.

pongo esto:

Public Sub LoadDataInControls(record As Recordset, ByVal texte As texbox)
    With record
        If .BOF = True Or .EOF = True Then Exit Sub
        For i = 0 To texte().ubound
            Set texte(i).DataSource = record
            texte(i).DataField = .Fields(i).Name
        Next i
    End With
end sub

y llamo al procedure:

Call LoadDataInControls(rsUbi, Text1)

No funciona, que hago mal?
Podriais ayudarme?

thedoctor:
Public Sub LoadDataInControls(record As Recordset, ByVal texte() As texbox)
With record
If .BOF = True Or .EOF = True Then Exit Sub
For i = 0 To texte().ubound
Set texte(i).DataSource = record
texte(i).DataField = .Fields(i).Name
Next i
End With
end sub

y llamo al procedure:

Call LoadDataInControls(rsUbi, Text1())

Si no funciona en mi e-mail te espero ...

Sareny:
Ja esta, pero gracias de todos modos
he definido la variable texte como variant
y la he pasado como referencia y no por valor. Entondes todo ok!

Navegación

[0] Índice de Mensajes