Graficas una vez mas
Publicado por Lissetle (20 intervenciones) el 24/01/2004 01:16:49
hola resulta que tengo que graficar los mejores pesos de una tabla donde tengo el peso de cada animal pero hasta ahora solo he podido hacerlo por cada una y no se como hacer para que me haga una consulta y me seleccione los mejores 5.
asi es como hago la grafica en el combo el la procedimientointeractived change
y en un list tengo los nombres de los animales a escoger
this.parent.combo1.interactivechange()
espero y alguien me entienda y me ayude gracias
asi es como hago la grafica en el combo el la procedimientointeractived change
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
if this.listindex=1
thisform.lagrafica.visible=.f.
else
thisform.lagrafica.chartType = this.listindex-2
thisform.lagrafica.ColumnCount = 1 && numero de series
xclave=VACAS->CLAVE
lnRow = 1
select tblcarne
set order to clave
seek xclave
COUNT while xclave=clave TO CV
CV=CV+1
thisform.lagrafica.visible=.t.
WITH thisform.lagrafica.Object
.Column = 1
.RowCount = cv && numero de columnas
.RowLabelCount = 1
.Row = 1
.data = VACAS->pesoi
.RowLabel = IIF(!empty(vacas->fechai),vacas->fechai,'sin fecha')
seek xclave
do while xclave=clave and !eof()
lnRow = lnRow+1
.Row = lnRow
.RowLabel = fecha
.data = cantidad
skip
enddo
ENDWITH
endif
y en un list tengo los nombres de los animales a escoger
this.parent.combo1.interactivechange()
espero y alguien me entienda y me ayude gracias
Valora esta pregunta
0