Xảy ra sau khi tất cả các hàng của
tập dữ liệu được lưu vào Trang tính
Mô tả
Bạn có thể dùng sự kiện này để áp dụng định dạng bổ sung cho vùng chi tiết
Cú pháp
TAfterRows =
procedure (Sender: TObject; Range:
IXLSRange) of object;
| Sender |
TObject. Chỉ định thành phần TDataToXLS đã kích hoạt sự kiện |
| Range |
IXLSRange. Đại diện cho vùng chứa toàn bộ khu vực chi tiết |
Ví dụ
Ví dụ này đặt đường phân cách giữa các hàng trong vùng chi tiết
procedure TForm1.DataToXLS1AfterRows(Sender: TObject;
Range: IXLSRange);
begin
Range.Borders[xlInsideHorizontal].LineStyle := xlContinuous;
end;