COMO TERMINAR EL ARREGLO
Publicado: Vie Ene 30, 2009 9:13 pm
::num := 1
::pub := 0
::y := "12"
::comodin := 12
Do While ::num <= 12
::x := '::oMaskedit'
::f := ::x + ::y + ':Value'
If ::F = "S"
::pub := ::pub + 1
Endif
::num := ::num + 1
::comodin := ::comodin + 1
::y := ::y + 1
Enddo
EN 12 :.OMASKEDIT ESTOY CAPTURANDO UNA "S" O UNA "N" Y CON EL ARREGLO
ANTERIOR QUIERO SABER CUANTAS "S" SE CAPTURARON. QUE EN CADA "S" QUE
ENCUENTRE ME INCREMENTE LA VARIABLE ::PUB
PORQUE EN CLIPPER ANTEPONIENDO EL & EN LA VARIABLE EN ESTE CASO F YO PODIA
HACERLO AQUI EN XAILER COMO SERIA
::pub := 0
::y := "12"
::comodin := 12
Do While ::num <= 12
::x := '::oMaskedit'
::f := ::x + ::y + ':Value'
If ::F = "S"
::pub := ::pub + 1
Endif
::num := ::num + 1
::comodin := ::comodin + 1
::y := ::y + 1
Enddo
EN 12 :.OMASKEDIT ESTOY CAPTURANDO UNA "S" O UNA "N" Y CON EL ARREGLO
ANTERIOR QUIERO SABER CUANTAS "S" SE CAPTURARON. QUE EN CADA "S" QUE
ENCUENTRE ME INCREMENTE LA VARIABLE ::PUB
PORQUE EN CLIPPER ANTEPONIENDO EL & EN LA VARIABLE EN ESTE CASO F YO PODIA
HACERLO AQUI EN XAILER COMO SERIA