Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Tablas planas
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-03-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola jhonalone.

Cita:
desde el Form2 pretendo recuperar los valores del DBGrid que pertenece al Form1. No tengo definido otro DBGrid en el Form2. Los presento (algunos valores, no todos) en un TListBox de la forma que tú me enseñaste. Uno de ellos es el campo calculado.
Como te dije toma valor, si antes he entrado en el Form1, si entro directamente en el Form2 toman valor todos los campos excepto el campo calculado.
Disculpame, recién ahora que me refrescas la memoria busqué (y encontré) el post anterior.

Me parece que este caso podrías prescindir del DBGrid y trabajar directamente sobre el DataSet:
Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var
  BM: TBookMarkStr;
  i: Integer;
  s: string;
begin
  ListBox1.Clear;
  with Form1 do  // (si el DataSet reside en Form1)
  begin
    DataSet.Open; // Opcional: ( si no esta abierto)
    BM:= DataSet.Bookmark;
    DataSet.DisableControls;
    DataSet.First;
    while not DataSet.Eof do
    begin
      s:= '';
      for i:= 0 to DataSet.FieldCount - 1 do
      begin
        s:= s + DataSet.Fields[i].AsString;
        if i < DataSet.FieldCount - 1 then
          s:= s + '  -  ';
      end;
      ListBox1.Items.Add(s);
      DataSet.Next;
    end;
    DataSet.Bookmark:= BM;
    DataSet.EnableControls;
    DataSet.Close; // Opcional ( si queres cerrarlo )
  end;
end;
Por que en realidad, el campo calculado está definido en el TDataSet no en el TDBGrid.

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 19-03-2011 a las 02:28:04.
Responder Con Cita
  #2  
Antiguo 19-03-2011
jhonalone jhonalone is offline
Miembro
 
Registrado: sep 2007
Ubicación: Madrid
Posts: 571
Poder: 19
jhonalone Va por buen camino
Ecfisa, eres GRANDE, MUY GRANDE. ¡¡FUNCIONÓ!!.

Espero no tener que abusar de tu inestimable ayuda muchas veces.

Gracias. Un especial saludo.
Responder Con Cita
  #3  
Antiguo 21-03-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola jhonalone.

Se nota que me estas mirando con una lupa...

Me alegro que hayas solucionado el problema.

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como obtener valor de Campo Autoincremento... vic_ia Firebird e Interbase 5 10-05-2005 17:19:42
obtener el valor de un campo (Tquery) Yoli Conexión con bases de datos 5 08-04-2005 22:07:05
como obtener el valor de un campo Yoli Conexión con bases de datos 2 23-03-2005 15:04:24
Obtener el valor de una campo autoincremento edum Conexión con bases de datos 2 26-08-2004 23:04:30
obtener valor de un campo despues de un insert + applyupdates(0) wonder boy Conexión con bases de datos 1 10-06-2004 23:05:39


La franja horaria es GMT +2. Ahora son las 22:45:29.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi