enero 23, 2019, 08:35:36 pm

Noticias:

Por motivos de la actualización realizada en Septiembre 2018, es necesario restablecer la contraseña. Si tienes problemas, escribe a [email protected]


Buscar en el sitio


PROBLEMAS

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

« anterior - próximo »

0 Usuarios y 2 Visitantes están viendo este tema.

Ir Abajo

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

Ir Arriba
 

Redes Sociales

Bienvenido, Invitado.
Por favor inicia sesión o regístrate.
 
 
 
¿Olvidó su contraseña?

Buscar en el sitio

Powered by EzPortal