盒子论坛 v2.1

table1.first;
sum_first:=strtoint(edit3.Text);
list_sum:=sum_first;
list_first:=strtoint(edit5.Text);
sum:=strtoint(edit4.text); //计算总记录数
list:=strtoint(edit6.text);
XLapp:=CreateOleObject('Excel.Application'); //创建一个对像
XLapp.Visible:=true;//让对象可见
XLapp.Workbooks.Add(xlWBatWorkSheet);//添加一个工作区
XLapp.workbooks[1].worksheets[1].name:='畜牧任务表管理';
data_slapp;
end;
procedure TForm6.data_slapp;
var
i,p,row:integer;
sheet:Variant;
begin
   p:=0;
   sheet:=XLapp.Workbooks[1].WorkSheets['畜牧任务表管理'];
while sum_first<=sum do
       begin
           sheet.Cells[1,sum_first]:=table1.Fields[p].FieldName;
           sum_first:=sum_first+1;
           p:=p+1;
       end;
while list_first<=list do
     begin
     list_sum:=strtoint(edit3.Text);
     sum:=strtoint(edit4.text);
     row:=list_first+1;
     while  list_sum<=sum do
            begin
            i:=list_sum-1;
            sheet.Cells[row,list_sum]:=table1.Fields[i].AsString;
            list_sum:=list_sum+1;
            end;
     list_first:=list_first+1;
     table1.Next;
     end;
end;
end.

----------------------------------------------
中流一壶，千金争挈。宁为铅刀，毋为楮叶。错节盘根，利器斯别。识时务者，呼为俊杰！

信息

登陆以后才能回复