Cita:
Empezado por mRoman
Hola Saúl:
Existe una propiedad del LookUpComboBox, que se llama ".KeyValue", esta propiedad almacena el valor del campo asociado al DataSet que le hayas configurado, en su propiedad "KeyField".
De tal manera que tu código quedaría asi:
Código Delphi [-]procedure TfrmRequisicion.gvDataDBTableView1COD_PRODUCTOCompareValuesForCellMerging( Sender: TcxGridColumn; AProperties1: TcxCustomEditProperties; const AValue1: Variant; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); begin dmMain.qryAProductos.ParamByName('ID_PROYECTO').AsInteger := cbxProyecto.KeyValue; end;
Espero te sirva....
SALUDOS! |
Hola mRoman Gracias por responder
Al probar el codigo me saliio este error
Código Delphi
[-]
[Error] uRequisicion.pas(514): Undeclared identifier: 'KeyValue'
pense que era porque lo habia introducido en el metodo de la columna del cxgrid que se llama
Código Delphi
[-]
procedure TfrmRequisicion.gvDataDBTableView1COD_PRODUCTOCompareValuesForCellMerging(
Sender: TcxGridColumn; AProperties1: TcxCustomEditProperties;
const AValue1: Variant; AProperties2: TcxCustomEditProperties;
const AValue2: Variant; var AAreEqual: Boolean);
begin
dmMain.qryAProductos.ParamByName('ID_PROYECTO').AsInteger := cblProyectos.KeyValue;
end;
que este es el que mande de ejemplo entonces lo introduje en el metodo del lookupcombobox
Código Delphi
[-]
procedure TfrmRequisicion.cblProyectosPropertiesChange(Sender: TObject);
begin
dmMain2.qryProductosProyecto.ParamByName('ID_PROYECTO').AsInteger := cblProyectos.KeyValue;
end;
pero me sgue dando ese problema y es que cuando escriboen mi lookupcombobox --> cblProyectos. "se despliegan todas las funciones no me sale KeyValue"