列表複製到的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];