Ver Mensaje Individual
  #9  
Antiguo 03-12-2012
ritamarkarla ritamarkarla is offline
Miembro
 
Registrado: sep 2010
Posts: 19
Reputación: 0
ritamarkarla Va por buen camino
Question codigo

hola, no tengo ningun codigo en el cxgrid, incluso lo borre, puse uno nuevo y nada, nada mas hago vincularlo con el datasource del query y ya no me hace el first, y no es que no lo visualice bien, es que no lo hace ni el zquery, verás este es el codigo que uso, en el que veo que no me funciona el zquery.first,
Código Delphi [-]
  with form1 do
    begin
   //   cxGrid1DBTableView1.ViewData.Records[0].Selected := true;
      {Abriendo el Modelo de reporte}
      AppPath := TApplication(Application).ExeName;
      DeleteName(AppPath);
      AppPath := AppPath + 'Empresas.xls';
      Lcid := LOCALE_USER_DEFAULT;
      ExcelModelo := TExcelApplication.Create(Application);
      ExcelModelo.ConnectKind := ckNewInstance;
      ExcelWorkbook1 := TExcelWorkbook.Create(Application);
      ExcelWorkbook1.ConnectTo(ExcelModelo.Workbooks.Add(AppPath, Lcid));
      {llenando el modelo}
      ZQueryEmpresas.First;
      i := 6;
      while not ZQueryEmpresas.Eof do
        begin
          ExcelModelo.Cells.Item[i,1] := ZQueryEmpresas.FieldByName('nombre').AsString;
          ZQueryEmpresas.Next;
          inc(i);
        end;
      {visualixando el modelo}
      ExcelModelo.Visible[Lcid] := true;
      ExcelModelo.Disconnect;
    end;

cuando vinculo el datasource al cxgrid pues me sale en blanco el excel, desvinculo el datasource y me llena el excel con los datos.
???
Responder Con Cita