您所指的按钮是平台的一部分。你不能通过代码添加它。
但是,我认为您可以通过使用 , 和 system 表的组合Excel Buffer来RecordRef非常FieldRef接近Field:
procedure ExportTable(TableNo: Integer)
var
Field: Record Field;
RecRef: RecordRef;
FldRef: FieldRef;
begin
RecRef.Open(TableNo);
if RecRef.FindSet() then
repeat
Field.SetRange(TableNo, RecRef.Number);
// Add filters to filter out FlowFilters, Blobs etc.
if Field.FindSet() then
repeat
FldRef := RecRef.Field(Field."No.");
// Write FldRef.Value to ExcelBuffer
until Field.Next() = 0;
until RecRef.Next() = 0;
// Export the Excel file
end;