Problemas con Grupos en listview

[[José Luis Garcí]]

Empezado por Neftali

¿Me puedes poner los valores del campo OPERARIO?
¿Cómo no lo veía en el DBGrid no lo tenía creado?

claro como no, te pongo una imagen

[Neftali [Germán.Estévez]]

OK.
Corregido y añadido el campo. Cuando ejecuto tu código me queda esto:



Tal vez hay alguna propiedad diferente en el componente.

[Neftali [Germán.Estévez]]

OK. ahora voy entendiendo.
Pueba cambiando esto a ver si es lo que necesitas....

Código Delphi [-]
    while not IBQcitas.Eof do
    begin
       if hora<>FormatDateTime('t',StrToDateTime(IBQcitasHORA.AsString)) then
       begin
          LV.Groups.Items[Contador-1].Footer :='Fin hora:[ '+ Hora+' ]';
          Hora:=FormatDateTime('t',StrToDateTime(IBQcitasHORA.AsString));
          LV.Groups.Add;
          LV.Groups.Items[Contador].GroupID:=Contador;
          LV.Groups.Items[Contador].Header := Hora;
          Contador:=contador+1;
       end;
      item:=LV.Items.Add;
==>>      Item.GroupID:=Contador-1;

==>>      // item.SubItems.add(IBQcitasHORA.AsString);
      item.SubItems.add(IBQcitasOPERARIO.AsString);
      item.SubItems.add(IBQcitasCLIENTE.AsString);
      item.SubItems.add(IBQcitasTRABAJO.AsString);
      IBQcitas.Next;
    end;
    if not (IBQcitas.IsEmpty) then    LV.Groups.Items[Contador-1].Footer :='Fin hora:[ '+ Hora+' ]';
  end;
end;

Contador (-1), porque ya lo habías incrementado y no añadir la hora, porque ya va en el grupo.

Queda tal que así:

[[José Luis Garcí]]

Empezado por Neftali

OK. ahora voy entendiendo.
Pueba cambiando esto a ver si es lo que necesitas....

En lo que yo escribía a tu anterior respuesta has puesto lo que decía, como siempre un millón de gracias compañero

[[José Luis Garcí]]

Neftali, perfecto, ya solucionado, solo tuve que añadirle una linea (el primer subitem de cada item a ''), muchisimas gracias compañero

pongo una imagen del resultado

Código Delphi [-]
procedure TForm1.MonthCalendar1Click(Sender: TObject);
var Item: TListItem;
    Contador:Integer;
    Hora:string;
begin
   Label1.Caption:=DateToStr(MonthCalendar1.Date);
   LV.Clear;
   LV.GroupView := True;
   LV.GridLines := True;
   Contador:=0;
   Hora:='';
   ActQuery(IBQcitas,'Select * From CITAS WHERE FECHA='+QuotedStr(Cambiafecha(MonthCalendar1.Date)));
  if IBQcitas.IsEmpty=false then
  begin
    IBQcitas.First;
    if not (IBQcitas.IsEmpty) then
    begin
       Hora:=FormatDateTime('t',StrToDateTime(IBQcitasHORA.AsString));
       LV.Groups.Add;
       LV.Groups.Items[Contador].GroupID:=Contador;
       LV.Groups.Items[Contador].Header := Hora;
       Contador:=contador+1;
    end;
    while not IBQcitas.Eof do
    begin
       if hora<>FormatDateTime('t',StrToDateTime(IBQcitasHORA.AsString)) then
       begin
          LV.Groups.Items[Contador-1].Footer :='Fin hora:[ '+ Hora+' ]';
          Hora:=FormatDateTime('t',StrToDateTime(IBQcitasHORA.AsString));
          LV.Groups.Add;
          LV.Groups.Items[Contador].GroupID:=Contador;
          LV.Groups.Items[Contador].Header := Hora;
          Contador:=contador+1;
       end;
      item:=LV.Items.Add;
      Item.GroupID:=Contador-1;
//      item.SubItems.add(IBQcitasHORA.AsString);
      item.SubItems.add('');
      item.SubItems.add(IBQcitasOPERARIO.AsString);
      item.SubItems.add(IBQcitasCLIENTE.AsString);
      item.SubItems.add(IBQcitasTRABAJO.AsString);
      IBQcitas.Next;
    end;
    if not (IBQcitas.IsEmpty) then    LV.Groups.Items[Contador-1].Footer :='Fin hora:[ '+ Hora+' ]';
  end;
end;

[Neftali [Germán.Estévez]]

[[José Luis Garcí]]

Perdona Neftali, pero creo que el problema sigue estando, coloco tu misma imagen con flechas de como tendrían que cuadrar con los datos




En primer lugar debería aparecer un grupo con las 08:15, a la que pertenece los dos registros Azul y verde que pertenecen a esa hora
en cambio aparece como grupo las 17:40, no aparece el registro, cuando realmente, debería aparecer como un segundo grupo (17:40) y el dato del grid con la flecha roja.

Por eso digo que no se que estoy haciendo mal (planteamiento o código), si es que estoy equivocado o si se trata de un bug

los datos deberían que dar de las siguiente manera



Espero se entienda mejor ahora