列表复制到的SpreadsheetGear Irange

Question

我有以下代码：

 using (CPASEntities ctx = new CPASEntities()) 
     { 
      IWorksheet ws = wb.Worksheets[0]; 
      ws.Name = "Summary"; 
      var tsm = (from x in ctx.tblTimesheetMasters 
         where x.TSID == TSID 
         select new 
         { 
          TimesheetID = x.TSID, 
          Comments = x.TSComments, 
          Vendor = x.tblVendor.Vendor_Name, 
          StartDate = x.TSStartDate, 
          Author = x.TSAuthor, 
          Approver = x.TSApprover, 
          Override_Approver = x.TSOverrideApprover, 
          Status = x.tblTimesheetStatu.TSStatusDesc 
         } 
        ).ToList(); 
      SpreadsheetGear.IRange range = ws.Cells["A1"]; 
      // I want to copy the entire tsm list to this range, including headings. 

     } 

随着评论的状态，我希望把他们整个列表到WS工作起始于A1。如果使用不同的结构更容易，我会包含代码。 FWIW，将只有一个条目... TSID是主键。如果这很重要，我当然可以使用.FirstorDefault（）构造。我认为这不重要。

Answer 1

您的范围只有一个单元格。您需要一个足够大的范围来包含列表将填充的所有单元格。

要使用列表填充工作表，您可以这样做。

int iRow = 0; 
    int iCol = 0; 
    if (tsm.Count() > 0) 
    { 
     foreach (var prop in tsm[0].GetType().GetProperties()) 
     { 
     ws.Cells[iRow, iCol].Value = prop.Name; 
     iCol++; 
     } 
     iRow++; 
     foreach (var t in tsm) 
     { 
     iCol = 0; 
     foreach (var prop in t.GetType().GetProperties()) 
     { 
      ws.Cells[iRow, iCol].Value = prop.GetValue(t, null); 
      iCol++; 
     } 
     iRow++; 
     } 
    } 

如果你想要一个范围，你可以添加这一行。

SpreadsheetGear.IRange range = ws.Cells[0, 0, iRow - 1, iCol - 1];