Columnas adicionales en TDBGrid

[noob]

Empezado por Al González

Cuatro preguntas:

1. ¿Qué hay dentro de la opción "Edit Table"?
2. ¿Qué versión de Delphi utilizas?
3. ¿Tienes algún accesorio (wizard / experto) especial instalado en el IDE?
4. ¿Algún sitio Web de donde podamos descargar una versión gratuita de esos componentes SQLite?

Saludos.

Al.

1. Está el editor de tablas Sqlite para cree una tabla.
2. Lazarus.
3. No.
4. http://sqlite4delphi.sourceforge.net/

Empezado por luisgutierrezb

Al Gonzalez, Era afirmación...

por lo que veo es Lazarus y ahi si casi no lo eh usado, sin embargo tal vez te pueda servir este codigo:

Código Delphi [-]
 
FieldTEmp := TStringField.Create(dataset);     
with FieldTEmp do     
  begin          
    FieldName := 'NewField';          
    FieldKind := fkLookup;          
    KeyFields := 'character_family';          
    LookupDataSet := clansDataSet;          
    LookupKeyFields := 'family_id';          
    LookupResultField := 'family_group';          
    DataSet := self.dataSet;     
  end;     
dataSet.FieldDefs.Add(FieldTemp.FieldName, ftString, 50, false);     
dataSet.Fields.Add(FieldTEmp);

este codigo es para crear un campo en tiempo de ejecucion, es de tipo lookup pero cambiando las propiedades lo puedes hacer calculado, espero que te sirva

Ahora tengo esto:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject); 
var   
  CampoTemporal: TStringField; 
begin   
  DatasetVentas.Active := True;   
  CampoTemporal := TStringField.Create(DatasetVentas);   
  with CampoTemporal do     
    begin       
      FieldName := 'Campo de búsqueda';       
      Lookup := True;       
      FieldKind := fkLookup;        
      KeyFields := 'Producto'; // Campo de la tabla base en el que se basa la búsqueda       
      LookupDataSet := DatasetProductos; // Tabla de búsqueda       
      LookupKeyFields := 'Codigo'; // Campos de la tabla de búsqueda que se corresponden con los KeyFields de la tabla base       
      LookupResultField := 'Descripcion'; // Campo de la tabla de búsqueda que se toma       
      DatasetVentas := Self.DatasetVentas;     
    end;   
  DatasetVentas.FieldDefs.Add(CampoTemporal.FieldName, ftString, 50, false);   
  DatasetVentas.Fields.Add(CampoTemporal);   
  DatasetVentas.Open; 
end;

Pero sale el DBGrid tal cual como si sólo hubiera hecho DatasetVentas.Open; no aparece ninguna columna adicional. A ver si alguien me echa un cable que parece que por lo menos he visto la forma de hacerlo por código, ahora sólo hace falta que funcione