Lo que estoy tratando de hacer es mediante una consulta a una base de datos por cada resultado que obtenga agregar un Expander dentro de un ScrollView. pero cuando ejecuto el programa no se ve ningun Expander dentro del control. Y no es que no haya arrojado resultados la consulta.
mi codigo es el siguiente:
Private rs As Result
Private cn As New Connection
Private Expan As Expander
Private Sub cargar()
If Not cn.Opened Then cn = modCon.conectar()
rs = cn.Exec("Select * from Gasto group by Fecha")
For Each rs
Print Format(rs!Fecha, "dd-mm-yyyy")
Expan = New Expander(ScrollView1)'el ScrollView1 ya esta agregado al Form
Expan.Text = Format(rs!Fecha, "dd-mm-yyyy")
Next
End
Public Sub Form_Open()
cargar()
End
Private cn As New Connection
Private Expan As Expander
Private Sub cargar()
If Not cn.Opened Then cn = modCon.conectar()
rs = cn.Exec("Select * from Gasto group by Fecha")
For Each rs
Print Format(rs!Fecha, "dd-mm-yyyy")
Expan = New Expander(ScrollView1)'el ScrollView1 ya esta agregado al Form
Expan.Text = Format(rs!Fecha, "dd-mm-yyyy")
Next
End
Public Sub Form_Open()
cargar()
End
Al otro lado de la pantalla
