Buscar en el Foro: 
Junio 16, 2019, 07:50:44 pm

Noticias:

Para hacer tu consulta: debes registrarte y hacer un nuevo tema en la sección que consideres más adecuada. Ver: Acerca de este Foro.


Recientes

PROBLEMAS

Iniciado por Guest, Febrero 07, 2006, 02:59:17 am

Tema anterior - Siguiente tema

Guest

ES QUE ESTOY HACIENDO UN PROGRAMA DE  LISTA DE PRECIO QUE LOS ARTICULOS ESTAN EN UNA LISTA DESPEGABLE Y QUIERO QUE CUANDO SELECCIONE UN ARTICULO ME APARESCA EL PRECIO EN UN TEXT BOX LA CANTIDAD QUE CUESTA NO E PODIDO MASTER


gin

Que lenguaje estas utilizando, si es VB:

Podrias utilizar como parametro de busqueda el contenido de la lista desplegable al activarse el evento Change y compararlo con el campo correspondiente (articulo) registro por registro en la base de datos y al encontrarlo volcar el contenido del campo "precio" en el cuadro de texto, es decir:

Ojo solo un ejemplo, puedes perzonaliarlo a tus necesidades, ya que no tomo en cuenta la optimizacion del codigo ni de donde obtienes los datos referentes a los articulos como el precio.

Option Explicit

Dim sPrecios(2, 3) As String

Private Sub ComboBox1_Change()
Dim i As Integer
Dim bFlag As Boolean

  i = 0
  bFlag = False
  Do While (i < 3 And bFlag = False)
    If (sPrecios(0, i) = ComboBox1.Text) Then
      TextBox1.Text = sPrecios(1, i)
      bFlag = True
    End If
   
    i = i + 1
  Loop
End Sub

Private Sub UserForm_Initialize()
  sPrecios(0, 0) = "articulo 1"
  sPrecios(0, 1) = "articulo 2"
  sPrecios(0, 2) = "articulo 3"
  sPrecios(1, 0) = "50"
  sPrecios(1, 1) = "100"
  sPrecios(1, 2) = "500"
 
  ComboBox1.AddItem "articulo 1"
  ComboBox1.AddItem "articulo 2"
  ComboBox1.AddItem "articulo 3"
End Sub

Espero que te sirva, si no da mas detalles.
blog.mbrenes.com

No hay vida en este cuerpo Yo soy nada, sin vida, sin alma ... odiado y temido, estoy muerto para todo el mundo. Escuchame... yo soy el monstruo al que los ho


Buscar en el Foro: