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