excelworksheet1,请大家帮忙看看，用这行怎么只能导出一行数据

Question

excelworksheet1,请大家帮忙看看，用这行怎么只能导出一行数据  （问题一）
 for  j:=1 to adoquery1.RecordCount do
      for i:=1 to adoquery1.fields.Count  do
      begin
        excelworksheet1.Cells.Item[j,i]:=adoquery1.fields[i-1].AsString;
      end;在2000下调试成功了在ｘｐ里怎么用不了呢？　　　　（问题二）
我家了Excelxp　到uses里了。
在线..............................

Answer 1

j的循环里，数据集没有Next一下？

Answer 2

adoquery1.First;
while not adoquery1.Eof do
begin
      for i:=1 to adoquery1.fields.Count  do 
      begin 
        excelworksheet1.Cells.Item[j,i]:=adoquery1.fields[i-1].AsString; 
      end; 
  adoquery1.Next;
end;

Answer 3

在2000下调试成功了在ｘｐ里怎么用不了呢？　　　　（问题二） 
啥错误？跟2000和XP没关系吧？我只用XP都好好的。
是不是在XP中文件已经打开了？或者没有安装OFFICE？

Answer 4

用了adoquery1.Next;还是一样的效果。回答３楼的
没有错误，就是看到打开了excel的ｂｏｏｋ１，然后就突然关掉。就什么都没有了。

Answer 5

你next放到哪里了，是不是和2楼一样，如果一样，就没有问题啊~~