SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Sareny en Martes 14 de Mayo de 2002, 13:04

Título: Re: Pasar por referencia un array de texbox
Publicado por: Sareny en Martes 14 de Mayo de 2002, 13:04

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?

Título: Re: Pasar por referencia un array de texbox
Publicado por: thedoctor en Jueves 16 de Mayo de 2002, 14:50

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 ...

Título: Pasar por referencia un array de texbox
Publicado por: Sareny en Jueves 16 de Mayo de 2002, 19:12

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!