L
lovefox
Unregistered / Unconfirmed
GUEST, unregistred user!
for I:=0 to SG_User.RowCount-1 do
begin
SelRec:=SelRec+1;
For J:=0 to Sg_user.ColCount-1do
begin
SelField:=SelField+1;
XlsSheet.Cells[SelRec,SelField] := SG_User.Cells[J,I];
// XlsSheet.Cells[I,J] := SG_User.Cells[J,I];
//showmessage(SG_User.cells[J,i]);
end;
SelField:=0;
end;
上面的代码段是输出SG_USER(TSTRINGGRID)的数据到EXCEL表,本来用I J循环变量
应该可以的,可是我每次用IJ赋值,给运行出错。
非得我在定义一个变量才可以.不知道是否是因为EXCEL把IJ认做表格里面得行列了。
为了验证,我又写了一个循环
for I:=0 to SG_User.ColCount-1do
begin
CellNum:=I;
XlsSheet.Columns[CELLNUM].ColumnWidth:=10;
end;
还是错误,可是 XlsSheet.Columns[1].ColumnWidth:=10;
又正确。WHY
begin
SelRec:=SelRec+1;
For J:=0 to Sg_user.ColCount-1do
begin
SelField:=SelField+1;
XlsSheet.Cells[SelRec,SelField] := SG_User.Cells[J,I];
// XlsSheet.Cells[I,J] := SG_User.Cells[J,I];
//showmessage(SG_User.cells[J,i]);
end;
SelField:=0;
end;
上面的代码段是输出SG_USER(TSTRINGGRID)的数据到EXCEL表,本来用I J循环变量
应该可以的,可是我每次用IJ赋值,给运行出错。
非得我在定义一个变量才可以.不知道是否是因为EXCEL把IJ认做表格里面得行列了。
为了验证,我又写了一个循环
for I:=0 to SG_User.ColCount-1do
begin
CellNum:=I;
XlsSheet.Columns[CELLNUM].ColumnWidth:=10;
end;
还是错误,可是 XlsSheet.Columns[1].ColumnWidth:=10;
又正确。WHY