Public Function GetDestinos() As String[]
    Dim RelenosCombox As New String[]
    hresul = hconn.Find("tb_destino")
    for each hResul
        RelenosCombox.Add(hresul["destino_id"] & "|" &
hresul["destino_descripcion"])
    next
    Return RelenosCombox
End

2) in form class

Public Sub ComboBoxLinOrig_Click()

    ComboBoxLinDest.List = operaciones.OtenerDestinos()

End

------------------------------------------------------------------------------
WatchGuard Dimension instantly turns raw network data into actionable 
security intelligence. It gives you real-time visual feedback on key
security issues and trends.  Skip the complicated setup - simply import
a virtual appliance and go from zero to informed in seconds.
http://pubads.g.doubleclick.net/gampad/clk?id=123612991&iu=/4140/ostg.clktrk
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

Reply via email to