动态创建quickreport，为什么运行到这步就不行了，请大家给我看看(50分)

S

small pig

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-23

• #1

procedure MakeReport1(Form: TForm;
ATitle: string;
JustPreview : boolean= true);
var
I: integer;
AD: TDataset;
AR: TCustomQuickRep;
Camps: TStringList;
begin
Camps := TStringList.Create;
with Formdo
for i:=0 to ComponentCount-1do
begin
if (Components is TDBEdit) then
Camps.Add(TDBedit(Components).DataField);//就是这步
AD:=TDBEdit(Components).DataSource.DataSet;
end;
AR:=Nil;
QRCreateList(AR, Nil, AD, ATitle, Camps);
end;

 

F

fodou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-23

• #2

若哪位大俠解決時請給我一份,謝謝!
e_mail:fodou@126.com

 

Z

zyfang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-23

• #3

for i:=0 to ComponentCount-1do
begin
if (Components is TDBEdit) then
begin
//应是这步吧
Camps.Add(TDBedit(Components).DataField);//就是这步
AD:=TDBEdit(Components).DataSource.DataSet;
end;
//应是这步吧
end;

 

左

左右手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-27

• #4

没啥问题呀，下面是我的测试代码，最后caption显示的就是datafield呀
procedure TForm1.FormCreate(Sender: TObject);
var
testsl:TStringList;
begin
testsl := TStringList.Create;
try
testsl.Add(DBEdit1.DataField);
caption := testsl.Strings[0];
finally
testsl.Free;
end;
end;

 

S

small pig

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-06

• #5

接受答案了.