L
lzh1998
Unregistered / Unconfirmed
GUEST, unregistred user!
==>如何制作有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
我做考勤软件常用这种方法....
速度和真存在的表一样快.....
收钱了................
最佳答案:
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
我做考勤软件常用这种方法....
速度和真存在的表一样快.....
收钱了................