在Delphi中自己建立交叉表计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:31:13
来源 100Test.Com百考试题网

　　经常在CSDN上查阅名位大侠的文章，得益不少，近期因做一个项目，需要用到交叉表，报表上倒是有，但客户要求在Grid上能操作，没有办法，只好自己写了一段代码用于普通查询到交叉表的实现，不敢独享，故上传，望能抛砖引玉，请名位大侠不吝指教。
　　function CreateTmptab(const AFieldDefs:TFieldDefs):TDataSet.
　　var
　　TempTable:TatClientDataSet.
　　begin
　　TempTable:=nil.
　　Result:=nil.
　　if AFieldDefs