将数据集由横向显示改为竖向 并规定列个数

procedure TForm1.btn3Click(Sender: TObject);
begin
    myclntdtst1.Close;
   myclntdtst1.CommandText :='select * from Base_DataError';
   myclntdtst1.Open;
   TrunInfo(myclntdtst1,strtoint(edt1.Text),4);
end;

 

 

 

procedure TForm1.TrunInfo(mySet: TMyClientDataSet; ShowCount, Coumon: integer);
var
 i:Integer;
 biaozhi_info :integer;//要显示的列数
 ZengGeShu:integer;    //内部循环次数
 biaozhi_info_t:integer;  //总增量

 teshu:integer;
begin
   biaozhi_info:=ShowCount;
   ZengGeShu:=1;
   biaozhi_info_t:=0;
   teshu:=0;
   for i := 1 to mySet.RecordCount do
   begin
      if i<=biaozhi_info then
      begin
               cl2.S(i,1,0,mySet.FieldByName('BErr_ID').AsString);
               cl2.S(i,2,0,mySet.FieldByName('BRData_ID').AsString);
               cl2.S(i,3,0,mySet.FieldByName('BErr_Column').AsString);
               cl2.S(i,4,0,mySet.FieldByName('Err_Num').AsString);
      end
      else
      begin
          if (i>biaozhi_info+biaozhi_info_t) and (i<=biaozhi_info*2+biaozhi_info_t) then
          begin
              cl2.S(i-biaozhi_info-biaozhi_info_t,5+teshu,0,mySet.FieldByName('BErr_ID').AsString);
              cl2.S(i-biaozhi_info-biaozhi_info_t,6+teshu,0,mySet.FieldByName('BRData_ID').AsString);
              cl2.S(i-biaozhi_info-biaozhi_info_t,7+teshu,0,mySet.FieldByName('BErr_Column').AsString);
              cl2.S(i-biaozhi_info-biaozhi_info_t,8+teshu,0,mySet.FieldByName('Err_Num').AsString);
              if ZengGeShu=biaozhi_info then
              begin
                 biaozhi_info_t:=biaozhi_info_t+biaozhi_info;
                 ZengGeShu:=1;

                 teshu:=teshu+Coumon;
              end
              else
               ZengGeShu:=ZengGeShu+1;
         end;
      end;
      mySet.Next;
 end;

   end;