将DBGRID中的数据连同字段名一起输出到EXCEL (100分)

Y

youx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #1

grid中的数据项可选，只输出在grid中显示的字段及数据。急！！！

 

A

arm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #2

VAR
A:ARRAY OF STRING;
I:INTEGER;
begin

WITH DBGRID,EXCELdo
// EXECL is olevariant your define
begin
SETLENGTH(A,COLUMNS.COUNT);
FOR I:=1 TO COLUMNS.COUNTdo
begin
A:=COLUMN.FIELD.NAME;
CELLS[1,I].VALUE=COLUMN.CAPTION;
end;
DATASET.DISABLECONTROLS;
I:=2;
DATASET.FIRST;
FOR J:=1 TO DATASET.RECORDCOUNT;
begin
CELLS[I,J].VAULE:=DATASET.FILEDBYNAME(A[J]);
I:=i+1;
NEXT;
end;
DATASET.ENABLECONTROLS;
end;
end;

 

A

arm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #3

>>CELLS[I,J].VAULE:=DATASET.FILEDBYNAME(A[J]);
CELLS[I,J].VAULE:=DATASET.FILEDBYNAME(A[J]).asvaraint;

 

Y

youx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-30

• #4

不用ole可以吗？

 

Y

youx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-30

• #5

arm,我输出到excel后，原先在dbgrid中不显示的字段，全都出来了，怎样才能把dbgrid原样输出到？

 

G

goubo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-30

• #6

arm:这里应该样写吧
DATASET.DISABLECONTROLS;
I:=2;
DATASET.FIRST;
WHILE NOT DATASET.EOFdo
begin

FOR J:=1 TO COLUMNS.COUNTdo

CELLS[I,J].VAULE:=DATASET.FILEDBYNAME(A[J]);
I:=i+1;
NEXT;
end;
DATASET.ENABLECONTROLS;
end;

 

Y

youx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-31

• #7

多人接受答案了。