Visualizar informacion
Publicado por gaby (10 intervenciones) el 31/05/2008 02:02:50
hola a todos!
Estoy restructurando una tabla TDbf en su parte decimal,resulta k cuando aumento a mas de 2 decimales de tipo (N) no se visualiza el cambio en el dektop de delphi, pero en excel o cuando activo el dbgrid en delphi si.
Requiero visualizarlo en el desktop......................
mi solución a ésto fue pasar los datos fuente a una tabla temporal y luego regresarlos a la tabla fuente con el siguiente codigo:
Dbf2.Active:=false;
Dbf2.CreateTableEx(Dbf1.DbfFieldDefs);
Dbf2.Active:=true;
Dbf1.First;
while not Dbf1.Eof do
begin
Dbf2.Insert;
For i:=0 to Dbf1.FieldCount-1 do
begin
Dbf2.Fields[i].Value:=Dbf1.Fields[i].Value;
end;
Dbf2.Post;
Dbf1.Next;
end;
Dbf2.Active:=true;
Resultado: se ven perfectamente los datos, pero generó otro error...............................................
ahora los datos (N) decimal 0 son los k ahora no se visualizan y los demas si; esto es porque al pasar los datos en la linea aparece nulo :
Dbf2.Fields[i].Value:=Dbf1.Fields[i].Value;
null := 10;
Como podria solucionar esto?
mil gracias...... gaby
Estoy restructurando una tabla TDbf en su parte decimal,resulta k cuando aumento a mas de 2 decimales de tipo (N) no se visualiza el cambio en el dektop de delphi, pero en excel o cuando activo el dbgrid en delphi si.
Requiero visualizarlo en el desktop......................
mi solución a ésto fue pasar los datos fuente a una tabla temporal y luego regresarlos a la tabla fuente con el siguiente codigo:
Dbf2.Active:=false;
Dbf2.CreateTableEx(Dbf1.DbfFieldDefs);
Dbf2.Active:=true;
Dbf1.First;
while not Dbf1.Eof do
begin
Dbf2.Insert;
For i:=0 to Dbf1.FieldCount-1 do
begin
Dbf2.Fields[i].Value:=Dbf1.Fields[i].Value;
end;
Dbf2.Post;
Dbf1.Next;
end;
Dbf2.Active:=true;
Resultado: se ven perfectamente los datos, pero generó otro error...............................................
ahora los datos (N) decimal 0 son los k ahora no se visualizan y los demas si; esto es porque al pasar los datos en la linea aparece nulo :
Dbf2.Fields[i].Value:=Dbf1.Fields[i].Value;
null := 10;
Como podria solucionar esto?
mil gracias...... gaby
Valora esta pregunta


0