FoxPro/Visual FoxPro - Cuadro de Lista (LIST)

Val: 5

Cuadro de Lista (LIST)

Publicado por Victor (56 intervenciones) el 20/05/2013 18:22:46

Hola Compañeros. Ahora voy con el LIST...

En FoxPro for Windows declaraba mi arreglo y le asignaba valores o información ej.

dime datos(10,2)

contador=1

use inf (tiene 10 registros)

do while not eof()

      datos(contador,1) = campox

      datos(contador,2) = recno()

      contador = contador +1

      skip

enddo

close all

Ahora en visual fox 9 como lo podría hacer...

Gracias por todos estos aportes y orientación que me ofrecen... pronto estare listo para apoyar a los que vengan de abajo.

Saludos.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 252

Val: 2

Cuadro de Lista (LIST)

Publicado por Edgar Zambrano (72 intervenciones) el 20/05/2013 22:24:16

si lo que quieres es rellenar un arreglo de la forma en que lo implementas te sirve

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 2

Val: 1.011

Cuadro de Lista (LIST)

Publicado por Fidel (558 intervenciones) el 20/05/2013 23:47:13

Las formas más usadas para rellenar un Control List son las siguientes:
5-Array , 0 - AddListItem, 2 - Alias, 3- SElect Sql
Tomé una tabla que utilizo yo para comprobar que el código sea correcto.
Para ahorrarme trabajo con los nombres de campos, selecciono los primeros 4
Como verás, el modo RowSourceType=0 (.AddListItem ó AddItem) es el más trabajoso porque resulta necesario transformar los valores a Character.
ColumnCount dirá cuántos campos se muestran en el control List
Podemos mejorar la presentación estableciendo un ColumnWidths="100,50,75,80" && los valores de ancho que correspondan.
Podemos quitar las rayas verticales: .list1.Columnlines=.F.
Podemos asociar una propiedad del formulario a la lista por ControlSource, ajustando el valor de BoundColumn. Esto permite reflejar cómodamente el valor que se espera de List en cualquier parte del formulario. Pero no es obligatorio. Se puede trabajar con .Value

Desde Click, DblClick ó InteractiveChange con:
nItem=this.ListitemId
if nitem#0
cValor1=this.Listitem(nitem,1)
cValor2=this.Listitem(nitem,2)
etc...
endif

El comienzo con .Clear y .RowSource="" permite desafectar al control List de otro seteo anterior.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

* fill List1 From Array

************************

* Para no crear un PUBLIC ARRAY, prefiero generar una propiedad de matriz en el formulario.

nc=0

nObten=6

IF PEMSTATUS(thisform,"marray",5)

	REMOVEPROPERTY(thisform,"mArray")

endif

addproperty(thisform,"mArray[1]","")

IF !PEMSTATUS(thisform,"PropList",5)

	ADDPROPERTY(thisform,"PropList","")

ENDIF

SELECT agenda

GO top

thisform.Proplist=EVALUATE(FIELD(4))

SCAN

	nc=nc+1

	DIMENSION thisform.mArray(nc,nObten)

	FOR i=1 TO nObten

		cCampo=FIELD(i)

		thisform.mArray[nc,i]=EVALUATE(cCampo)

	NEXT

ENDSCAN

WITH thisform.list1

	.Clear

        .RowSource=""

	.ColumnCount=ALEN(thisform.mArray,2)

	.RowSourceType=5

	.RowSource="thisform.mArray"

	.boundcolumn=4

	.ControlSource='Thisform.PropList'

	.requery

	.refresh

ENDWITH

* ----------------------------------------------------

* Fill .AddListItem()

***********************

nc=0

nObten=6

IF !PEMSTATUS(thisform,"PropList",5)

	ADDPROPERTY(thisform,"PropList","")

ENDIF

SELECT agenda

GO top

thisform.Proplist=EVALUATE(FIELD(4))

WITH thisform.list1

	.Clear

        .RowSource=""

	.RowSourceType=0

	.ColumnCount=nObten

	.boundcolumn=4

	.controlSource='thisform.proplist'

	SCAN

		nc=nc+1

		FOR i=1 TO nObten

			xValCampo=EVALUATE( FIELD(i) )

			DO case

				CASE VARTYPE(xValCampo)="C"

					xValCampo=ALLTRIM(xVAlCampo)

				CASE VARTYPE(xValCampo)="N"

					xValCampo=TRANSFORM(xValCampo,"999,999.99")

				CASE VARTYPE(xValCampo)="I"

					xValCampo=Transform(xValCampo,"999999")

				CASE VARTYPE(xValCampo)="D"

					xValCampo=DTOC(xValcampo)

				CASE VARTYPE(xVAlCampo)="T"

					xValCampo=TTOC(xValCAmpo)

				CASE VARTYPE(xValCampo)="L"

					xValCampo=IIF(xValCampo,"Si","No")

			endcase

			.AddListItem(xValCampo,nc,i)

		NEXT

	ENDSCAN

	.requery

	.refresh

endwith

* ----------------------------------------------------------------------

* Fill from Table / Cursor

****************************

nc=0

nObten=6

IF !PEMSTATUS(thisform,"PropList",5)

	ADDPROPERTY(thisform,"PropList","")

ENDIF

SELECT agenda

GO top

thisform.Proplist=EVALUATE(FIELD(4))

WITH thisform.list1

	.Clear

        .RowSource=""

	.RowSourceType=2

	.RowSource="agenda"

	.ColumnCount=nObten

	.boundcolumn=4

	.controlSource='thisform.proplist'

	.requery

	.refresh

endwith

* ------------------------------------------------

* Fill from SQL SELECT

****************************

nc=0

nObten=6

IF !PEMSTATUS(thisform,"PropList",5)

	ADDPROPERTY(thisform,"PropList","")

ENDIF

SELECT agenda

GO top

thisform.Proplist=EVALUATE(FIELD(4))

lcSelect=[Select *,RECNO() from Agenda into cursor papa where !EMPTY(fecha)]

WITH thisform.list1

	.Clear

        .RowSource=""

	.RowSourceType=3

	.RowSource=[&lcSelect]

	.ColumnCount=nObten

	.boundcolumn=4

	.Controlsource='Thisform.PropList'

	.requery

	.refresh

endwith

Valora esta respuesta

Comentar