Ver Mensaje Individual
  #1  
Antiguo 24-09-2010
Avatar de CHECHE81
CHECHE81 CHECHE81 is offline
Miembro
 
Registrado: may 2007
Ubicación: Huauchinango, Puebla
Posts: 64
Reputación: 18
CHECHE81 Va por buen camino
Talking valores por defaul en CxGrid ....

Saludos camaradas, con la novedad que ando manejando el bondadoso y famoso cxgrid junto con un cxnavigator asociado claro con su clientdataset y datasource, el detalle que al agregar un registro nuevo quiero ponerle un valor que ya tengo guardado en una variable o en algún campo de otra tabla y lo intento en 2 eventos:

Primero:
Código:
pprocedure TfmEstadoCuenta.cxNavigator1ButtonsButtonClick(Sender: TObject;
  AButtonIndex: Integer; var ADone: Boolean);
begin
  if AButtonIndex = NBDI_INSERT then
  begin
    cxGridDBTableView2.ViewData.Records[0].Values[4] := edimportecita.Text;
    cxGridDBTableView2IMPORTE.Caption := edimportecita.Text;
    cxGridDBTableView2IMPORTE.EditValue := edimportecita.Text;
    cxGridDBTableView2IMPORTE.DataBinding.Field.Value := cdcg.FieldValues['importecitas'];
    cdsc.FieldValues['importe'] := cdcg.FieldValues['importecitas'];
  end;  
end;
Segundo
Código:
procedure TfmEstadoCuenta.cdSCBeforeInsert(DataSet: TDataSet);
begin
   if (cdsc.State = dsinsert) then
   begin
     cdsc.FieldValues['importe'] := cdcg.FieldValues['importecitas'];
     cxGridDBTableView2IMPORTE.DataBinding.Field.Value := cdcg.FieldValues['importecitas'];
     cdsc.FieldValues['fecha'] := date;
     cxGridDBTableView2FECHA.DataBinding.ValueType := datetostr(date);
     cxGridDBTableView2IMPORTE.Caption := edimportecita.Text;
     cxGridDBTableView2.ViewData.Records[0].Values[2]:= edimportecita.Text;  
   end; 
end;

de cada forma pero ninguna me ha dado resultado, ya busque algúnos ejemplos y con ellos hice lo anterior pero no le he dado al clavo les agradeceria cualquier ayuda, gracias por su tiempo.
__________________
Cuidemos el medio ambiente....jojo

Última edición por CHECHE81 fecha: 24-09-2010 a las 19:31:31.
Responder Con Cita