Limpiar ComboBox

25/08/2006 - 20:23 por Amado Garcia Lara | Informe spam

tengo 10 combobox en un form que deseo limpiar al guardar su contenido en la
tabla puedo hacerlo Thisform.Combo1.Value=" ", Thisform.Combo2.Value=" ",
etc... pero deseo hacerlo con un for endfor pero no me sale... agregarle el
el val de la x al comboBox asi...
For X = 1 to 10
Thisform.Combo(x).Value=" " <- Aqui esta mi duda.
EndFor

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 integral

25/08/2006 - 22:05 | Informe spam

Que tal amigo :
Prueba con el siguiente codigo...

For c = 1 to Thisform.ControlCount
Do Case
Case (Upper(Thisform.Controls(c).Class),"COMBOBOX")
&& Aqui pones lo que deseas realizar
EndCase
EndFor

Saludos,

GABRIEL
(Lima-Perú)

Amado Garcia Lara ha escrito:

tengo 10 combobox en un form que deseo limpiar al guardar su contenido en la
tabla puedo hacerlo Thisform.Combo1.Value=" ", Thisform.Combo2.Value=" ",
etc... pero deseo hacerlo con un for endfor pero no me sale... agregarle el
el val de la x al comboBox asi...
For X = 1 to 10
Thisform.Combo(x).Value=" " <- Aqui esta mi duda.
EndFor

Responder a este mensaje

#2 Hugo M. Ranea

25/08/2006 - 22:11 | Informe spam

Amado

Puedes probar thisform.SetAll('Value', '', 'Combobox'), si es que no hay
comboboxes que no quieras tocar, sino tu loop, assumiendo que los combos
son del 1 al 10

For lnCombo = 1 to 10
with getpem(thisform, 'Combo' + transform(lnCombo))
.Value = " "
endwith
Next lnCombo

Amado Garcia Lara wrote:

tengo 10 combobox en un form que deseo limpiar al guardar su contenido en la
tabla puedo hacerlo Thisform.Combo1.Value=" ", Thisform.Combo2.Value=" ",
etc... pero deseo hacerlo con un for endfor pero no me sale... agregarle el
el val de la x al comboBox asi...
For X = 1 to 10
Thisform.Combo(x).Value=" " <- Aqui esta mi duda.
EndFor

Responder a este mensaje

#3 M

28/08/2006 - 16:42 | Informe spam

Podrias intentar esto
x = ""
For i = 1 to 10
x = Alltrim(Str(i))
Thisform.Combo&x..Value = ""
endfor

Saludos Cordiales

Cruz
Mérida, Yucatán, México

"Hugo M. Ranea" escribió en el mensaje
news:%

Amado

Puedes probar thisform.SetAll('Value', '', 'Combobox'), si es que no hay
comboboxes que no quieras tocar, sino tu loop, assumiendo que los combos
son del 1 al 10

For lnCombo = 1 to 10
with getpem(thisform, 'Combo' + transform(lnCombo))
.Value = " "
endwith
Next lnCombo

Amado Garcia Lara wrote:

tengo 10 combobox en un form que deseo limpiar al guardar su contenido en
la tabla puedo hacerlo Thisform.Combo1.Value=" ", Thisform.Combo2.Value="
", etc... pero deseo hacerlo con un for endfor pero no me sale...
agregarle el el val de la x al comboBox asi...
For X = 1 to 10
Thisform.Combo(x).Value=" " <- Aqui esta mi duda.
EndFor

Responder a este mensaje

#4 Amado Garcia Lara

29/08/2006 - 01:26 | Informe spam

todos los ejemplos me han servido mucho... muchisimas gracias a todos

" Cruz" escribió:

Podrias intentar esto
x = ""
For i = 1 to 10
x = Alltrim(Str(i))
Thisform.Combo&x..Value = ""
endfor

Saludos Cordiales

Cruz
Mérida, Yucatán, México

"Hugo M. Ranea" escribió en el mensaje
news:%
> Amado
>
> Puedes probar thisform.SetAll('Value', '', 'Combobox'), si es que no hay
> comboboxes que no quieras tocar, sino tu loop, assumiendo que los combos
> son del 1 al 10
>
> For lnCombo = 1 to 10
> with getpem(thisform, 'Combo' + transform(lnCombo))
> .Value = " "
> endwith
> Next lnCombo
>
>
> Amado Garcia Lara wrote:
>> tengo 10 combobox en un form que deseo limpiar al guardar su contenido en
>> la tabla puedo hacerlo Thisform.Combo1.Value=" ", Thisform.Combo2.Value="
>> ", etc... pero deseo hacerlo con un for endfor pero no me sale...
>> agregarle el el val de la x al comboBox asi...
>> For X = 1 to 10
>> Thisform.Combo(x).Value=" " <- Aqui esta mi duda.
>> EndFor
>>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida