Tài liệu HotXLS

Phương thức ExportDBGrid

Xuất dbgrid vào Worksheet mới hoặc hiện có

Cú pháp

procedure ExportDBGrid;
procedure ExportDBGrid(Newsheet: Boolean);
procedure ExportDBGrid(Newsheet: Boolean; Row, Col: Integer);
Newsheet Boolean tùy chọn. True - xuất dbgrid sang Worksheet mới; False - xuất dbgrid sang Worksheet hiện có. Giá trị mặc định là True
Row Optional Integer. hàng index
Col Optional Integer. cột index

Ví dụ

Ví dụ này tạo Workbook Example1.xls với hai Worksheet chứa dữ liệu từ DBGrid1 và DBGrid2

begin
  GridToXLS1.Workbook := nil; //Clears sổ làm việc

  //First dbgrid
  GridToXLS1.WorksheetName := 'DBGrid1 sheet'; //Chỉ định tên cho trang tính đầu tiên
  GridToXLS1.DBGrid := DBGrid1; //Chỉ định DBGrid để xuất
  GridToXLS1.ExportDBGrid;

  //Second dbgrid
  GridToXLS1.WorksheetName := 'DBGrid2 sheet'; //Chỉ định tên cho trang tính thứ hai
  GridToXLS1.DBGrid := DBGrid2; //Chỉ định DBGrid để xuất
  GridToXLS1.ExportDBGrid;

  GridToXLS1.SaveAs('Example1.xls'); //Saves the created sổ làm việc into Example1.xls tệp
end;
Ví dụ này tạo Workbook Example2.xls với một Worksheet chứa dữ liệu từ DBGrid1 và DBGrid2

begin
  GridToXLS1.Workbook := nil; //Clears sổ làm việc
  GridToXLS1.WorksheetName := 'DBGrid1 and DBGrid2 sheet'; //Chỉ định tên cho trang tính

  //First dbgrid
  GridToXLS1.DBGrid := DBGrid1; //Chỉ định DBGrid để xuất
  GridToXLS1.ExportDBGrid;

  //Second dbgrid
  GridToXLS1.DBGrid := DBGrid2; //Chỉ định DBGrid để xuất
  GridToXLS1.ExportDBGrid(false);

  GridToXLS1.SaveAs('Example2.xls'); //Saves the created sổ làm việc into Example2.xls tệp
end;