Columnas adicionales en TDBGrid

[Kipow]

Con los calcfields creo que no te funcionara porque estos se resetearan cada vez que se ejecute el evento. podrias probar talvez on el componente de las Jedi el jvMemoryData que es una tabla en memoria.

[noob]

¿No se puede hacer con el TDBGrid sin más o cómo mucho usando alguna estructura de datos tipo array dinámico?

[PepeLolo]

Empezado por noob

¿No se puede hacer con el TDBGrid sin más o cómo mucho usando alguna estructura de datos tipo array dinámico?

No necesitas hacer nada de eso, la vida es muy sencilla con delphi. Lo que tienes que hacer en primer lugar es olvidarte del Picklist, eso no sirve para lo que quieres, lo que necesitas es un lookup combo box, en el cual expecifiques las columnas que quieres visualizar (Código y descripción).

Antes que nada, si de lo que hablo no entiendes algo, busca en la ayuda de delphi las palabras en negrita.

Empecemos, primero tienes que crear los TField de la tabla "Producto", una vez creados, posicionado en el campo "Codigo" y pulsa F11 para mostrar las prompiedades del TField, veras las propiedades "LookupDataSet, LookupKeyFields y LookupResultField)

Segundo, añade un dataset nuevo que devuelva los datos del código y descripción que quieres visualizar. Añade un dataSource y asociale el DataSet creado.

Tercero asocia el dataSource creado a la propiedad TField.LookupDataSet del campo "Codigo". En la propiedad TField.LookupKeyFields pones los campos del DataSet creado separados por ";" ejemplos: "CODIGO;DESCRIPCION". En la propiedad TField.LookupResultField poner el campo del que tomará el valor a guardar en tu tabla por ejemplo: 'CODIGO'.

Cuarto, tienes que abrir el DataSet creado con el resto de los DataSet.

Fin, ahora cuando en el dbgrid pulses sobre el botón del campo "CODIGO"SE mostrará el código y descripción, justo lo que quieres.

un saludo

[noob]

Gracias, estoy en el paso de crear los TField de la tabla Producto pero he visto en la ayuda que pone esto:

Do not create instances of TField. TField descendants are created automatically each time a dataset is activated.

La duda es ¿qué dataset he de utilizar?

[PepeLolo]

Empezado por noob

Gracias, estoy en el paso de crear los TField de la tabla Producto pero he visto en la ayuda que pone esto:
La duda es ¿qué dataset he de utilizar?

Creo que me he liado con los nombres de tus tablas

Tienes un DataSet que tienes conectado al DBGrid, de ese dataset tienes que crear los TField. En el TField "Producto" asignar las propiedades lookup como te he comentado anteriormente.

Del dataset que has de crear nuevo no es necesario crear lo TField.

un saludo.

[noob]

Ya te entiendo, he sacado un TDBGrid, dos TDataSource y dos dataset, mi estructura es la siguiente:

DBGrid1 --> DataSourceVentas --> DataSetVentas
DataSourceProductos --> DataSetProductos

he hecho esto pero no ocurre nada de nada, simplemente están todos los campos de la tabla Ventas pero no hay ningún botón en el campo Producto:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  with DatasetVentas do
    begin
      Open;
      FieldByName('Producto').LookupDataSet := DatasetProductos;
      FieldByName('Producto').LookupKeyFields := 'Codigo; Descripcion';
      FieldByName('Producto').LookupResultField := 'Codigo';
    end;
end;

¿Falta algo?

Un saludo.

[PepeLolo]

Cuando piensa abrir DataSetProductos, supongo que has añadido los campos de DataSetVentas al dbgrid. Por último cuando en el DBGrid pulses sobre el botón del campo "Producto" se desplegará el lookup.

un saludo.