gracias por la atención marcos!
mira intentamos realizar un rutina más o menos relacionada con los resultados que pretendemos obtener con las propiedades sobre los cuales he solicitado información
pero no nos esta funcionando
a considerar: la grid esta enlasada a un datasource , el cual a su vez toma los valores de un procedimiento almacenado, el cual esta concentado a obejto conexión que esta en comunicación con un motor de base de datos Sql Server 2000.
Todos los objetos exceptuando el DataSource son de la tecnologia ADO
expongo la rutina ejemplo a continuación:
for i := 1 to tstringgrid(dbgrid1).rowcount -1 do
begin
tstringgrid(dbgrid1).row := i;
dbgrid1.setfocus;
Vtotal := VTotal + dbgrid1.Columns[0].asinteger;
end;
showmessage(inttostr(Vtotal))
- lo que suecede en esta rutina es que el valor de la columna no se actualiza, es decir, simpre contiene el valor de la columna en la primera fila ( tstringgrid(dbgrid1).row = 1)
otra forma en que intentamos plantear esto pero optuvimos el mismo resultado fue:
tstringgrid(dbgrid1).col := 0;
for i := 1 to tstringgrid(dbgrid1).rowcount -1 do
begin
tstringgrid(dbgrid1).row := i;
dbgrid1.setfocus;
Vtotal := VTotal + dbgrid1.selectedField.value;
end;
showmessage(inttostr(Vtotal))
espero me puedan ayudar en algo sobre este problemilla !
__________________
"Todo lo que puede fallar, falla."
|