Question

最近我想使用TscExcelExport导出数据。如果我正在使用设计组件使用TVirtualTable，它可以很好地工作。

EmpVT.First;
EmpVT.Filtered := False;
while not EmpVT.Eof do
  begin
    //Salary Virtual Table
    VirtualTableBankTransferListExport.Append;
    VirtualTableBankTransferListExport.FieldByName('EMPID').AsInteger := EmpVT.FieldByName('EMPID').AsInteger;
    VirtualTableBankTransferListExport.FieldByName('EMPBANKGROUPNO').AsInteger := EmpVT.FieldByName('BANKGROUPNO').AsInteger;
    VirtualTableBankTransferListExport.FieldByName('EMPTRANSBANKACCNAME').AsString := EmpVT.FieldByName('EMPBANKACCNAME').AsString;
    VirtualTableBankTransferListExport.FieldByName('EMPTRANSBANKACCNO').AsString := EmpVT.FieldByName('EMPBANKACCNO').AsString;
    VirtualTableBankTransferListExport.FieldByName('BANKACCNO').AsString := EmpVT.FieldByName('BANKACCNO').AsString;
    VirtualTableBankTransferListExport.FieldByName('PERIOD').AsString := PaySlipPeriod;
    VirtualTableBankTransferListExport.FieldByName('BANKNAME').AsString := EmpVT.FieldByName('BANKNAME').AsString;
        VirtualTableBankTransferList.FieldByName('TRANSFERAMOUNT').AsInteger := 0;//Format('%s%s%.*d', [EmpVT.FieldByName('REGIONCODE').AsString,EmpVT.FieldByName('EMPCODE').AsString,4,EmpVT.FieldByName('EMPCODE').AsInteger]); //EmpVT.FieldByName('EMPCODE').AsString;
    VirtualTableBankTransferListExport.FieldByName('BANKID').AsString := EmpVT.FieldByName('BANKID').AsString;
    VirtualTableBankTransferListExport.FieldByName('TBANKNAME').AsString := EmpVT.FieldByName('TBANKNAME').AsString;
    VirtualTableBankTransferListExport.FieldByName('BANKLOCATION').AsString := EmpVT.FieldByName('BANKLOCATION').AsString;
    VirtualTableBankTransferListExport.Post;
    EmpVT.Next;
  end;
  scExcelExport1.WorksheetName := 'Bank Transfer List';
  scExcelExport1.Dataset:=VirtualTableBankTransferListExport;
  scExcelExport1.ExportDataset;
  scExcelExport1.Disconnect;

仅通过代码创建TVirtualTable的正确方法是什么，而不会在表单中删除TVirtualTable？

感谢您的帮助。

Answer 1

安装CnWizards（更多功能但不太稳定）或GExperts IDE（更精美但功能更少）附件

他们都有“组件到代码”向导。

因此，您将选择您的组件，从菜单中运行此命令，并获得创建它的纯Pascal源。

PS。实际上可能有几个组件，而不是一个组件：字段通常是它们自己的组件。

仅通过代码创建TVirtualTable而不使用drop组件

1 个答案: