来看看这个交叉表的问题

Question

现在有个问题
例：有个表：姓名  日期  工时
            张三   1/1  5
            李四   1/1  6
            张三   1/2  3
            张三   1/3  1
            ...... ...  ..
 生成如下报表
                
          姓名 1/1  1/2  1/3 。。1/31  
          张三  5    3    1
          李四  6
求救各位大虾！

Answer 1

容易呀!
你将数据源设置好!
在数据源里用SQL语句来控制生成的报表样式呀!
还有问题和我联系

Answer 2

你先认真的看看我这个，你就会了
procedure Tfrmqcarcoderep.QuickRep1NeedData(Sender: TObject;
  var MoreData: Boolean);
var i,j:integer;
begin
 with frmqcarcode.Query2 do
      begin
       if EOF then
           begin
           moredata:=false;
           exit;
           end;
        moredata:=true;
        for i:=0 to fieldlen-1 do
        for j:=0 to 8          do
        qrlabel[i,j].caption:='';
        for i:=0 to fieldlen-1 do
        qrlabel[i,0].caption:=fields[i].fieldname;
        for j:=1 to 8 do
        begin
             if eof then break;
             for i:=0 to fieldlen-1 do
                begin
                qrlabel[i,j].caption:=fieldbyname(fields[i].fieldname).asstring;
                end;
                next;
         end;
    end;
     with frmqcarcode.Query1 do
    begin
    QRLabel2.Caption :=frmqcarcode.combobox1.Text  + '车号的总数量为:'+fieldbyname(fields[0].fieldname).asstring+'KG';
    end;
end;