如何制作有1-31号日期为列的报表，横排变成竖排，我的程序总是超时！ (200分)

==>如何制作有1-31号日期为列的报表，横排变成竖排，我的程序总是超时！
最佳答案:
ss := TStringField.Create(Self);
FieldName := aaa;
Name := aaaa;
FieldKind:= fkCalculated;
displaylabel:=xxx;
Size:=nn;
displaywidth:=xx;
DataSet := adoquery;
给数据集建fkCalculated类型的段(L1,L2....L31)
procedure Tfcymxb.QcxCalcFields(DataSet: TDataSet);
begin
inherited;
with qchilddo
begin
Filter:='id='+inttostr(qcxid.Value);
first;
while not eofdo
begin
adoquery. FieldByName('rq'+trim(fieldbyname('日期').AsString) ).AsFloat:=fieldbyname(xxx).asstring;
next;
end
我做考勤软件常用这种方法....
速度和真存在的表一样快.....
收钱了................

增加索引后就只有10秒了。

哦。//thx soul
请问lzh1998 C++Builder怎么实现？

好的，我给分，
那个索引怎么样建立呢？大家多忙，我先给分！
我去年带朋友去了了从化玩得开心，你们可以看看贴子呀！很多人有15个左右吧，
留个电话，我们聚聚了！

sql server不支持交叉表。
最简单的在查询分析器里，菜单选 【查询】－【索引优化向导】，在这个之前先把那句正确的sql
语句贴在里面，然后一步一步做就可以，选择，完全优化。

程序调试通过了！
多谢各位英雄相助！
在此特别感谢 SOUL 和火魂 的解决问题，其它的英雄也给出了中肯的意见！
一并感谢，按我的意思给了大家钱，如果有不满意的地方，望大家多多原谅
我还有一个索引的问题没有搞定，望大家多帮助！
QQ：65466700 电话：13802785865 邮件：along@b2sun.com 大家叫我阿龙吧
广州华南理工大学 华工信息软件集团 就职！
主要方向是网络安全的 系统集成项目 MIS系统开发 电信增值业务
有志同道合的朋友 我们一起创建我们的社会主义现代化强国！
以科技服务于社会，以诚信广博天下拥戴！
怎么没有人鼓掌呀！。。。。。。。

TO:火魂
在 C++Builder 我没有试过.应该可以,道理一样,你可以试一下

一个bug，结束的帖子里无法发第二此帖子了。

人走茶冷！
。。
哎！