var
i : integer;
j : integer;
EParam : OleVariant;
DocuType : OleVariant;
IMEIEW : _WorkBook;
IMEIES : _worksheet;
dates : string;
name:string;
1/ with adoquery1 do
2/ begin
3/ next;
4/ while not eof do
5/ begin
6/ for j:=0 to adoquery2.FieldCount-1 do
7/ begin
8/ name:=adoquery2.fields.Fields[j].FieldName;
9/ IMEIES.Cells.Item[i+2,j+1]:=adoquery2.fields.Fields[j].AsString;
10/ end;
11/ next;
12/ i:=i+1;
13/ end;
14/ end;单独执行第7或8可以进行,可是一并执行则到8时会出错。请教原因,谢谢!
i : integer;
j : integer;
EParam : OleVariant;
DocuType : OleVariant;
IMEIEW : _WorkBook;
IMEIES : _worksheet;
dates : string;
name:string;
1/ with adoquery1 do
2/ begin
3/ next;
4/ while not eof do
5/ begin
6/ for j:=0 to adoquery2.FieldCount-1 do
7/ begin
8/ name:=adoquery2.fields.Fields[j].FieldName;
9/ IMEIES.Cells.Item[i+2,j+1]:=adoquery2.fields.Fields[j].AsString;
10/ end;
11/ next;
12/ i:=i+1;
13/ end;
14/ end;单独执行第7或8可以进行,可是一并执行则到8时会出错。请教原因,谢谢!
解决方案 »
- (急)求delphi控制powerpoint的完整例子
- 求助!用InstalShield做的安装程序在英文版XP中无法打开!
- 很着急的问题!请各位高手速回答!!!!!!!!
- 报表问题,来者有分
- 内嵌汇编编译问题Inline assembler syntax error
- 我的d6不能保存project,提示'@' is not a valid identifier?
- 现在:浑浑噩噩;将来:梦想那里,不敢,不敢想。--------所以,我考研!
- 救命啊
- 敬请各高手指正!
- 我要准备什么类型的作品才可在求职中打动老板的心?
- 组件开发的一个小小问题,高分相求,UP有分!
- 怎样用循环得到这样一窜整数(在线等)谢谢了
8/ name:=adoquery2.fields.Fields[j].FieldName;
9/ IMEIES.Cells.Item[i+2,j+1]:=adoquery2.fields.Fields[j].AsString;
有什么冲突?