如何導出設置取決於日期行的數據表，從到Excel

Question

的多個工作表我想具體的行輸出到Excel中的多張取決於日期從數據表在vb.net

我的代碼

我希望17/08/2016在一張紙18/08/2016在nextsheet。 我的錶行這樣的：

s.no date  
1 17/08/2016  
2 17/08/2016  
3 17/08/2016  
4 18/08/2016  
5 18/08/2016 

  For i = 0 To dt.Rows.Count - 2 
      If dt.Rows(i).Item("AttDate") = dt.Rows(i + 1).Item("AttDate") Then 
       oSheet = oBook.Worksheets(1) 

       oSheet.Cells(Irow, IcolFranchisee) = dt.Rows(i).Item("Intime") 
       If dt.Rows(i).Item("latein") > 0 Then 
        oSheet.Cells(Irow, IcolFranchisee + 1) = dt.Rows(i).Item("latein") 
       Else 
        oSheet.Cells(Irow, IcolFranchisee + 2) = dt.Rows(i).Item("latein") 
       End If 
       Irow = Irow + 1 
      Else 
       osheet1 = oBook.Worksheets(2) 

       osheet1.Cells(Irow, IcolFranchisee) = dt.Rows(i).Item("Intime") 
       If dt.Rows(i).Item("latein") > 0 Then 
        osheet1.Cells(Irow, IcolFranchisee + 1) = dt.Rows(i).Item("latein") 
       Else 
        osheet1.Cells(Irow, IcolFranchisee + 2) = dt.Rows(i).Item("latein") 
       End If 
       Irow = Irow + 1 
      End If 
     Next 

Answer 1

Dim strValue As String 
     For i = 0 To dt.Rows.Count - 2 
     If i = 0 Then 

      ' Sheet 1 
      oSheet = oBook.Worksheets(1) 

      oSheet.Cells(Irow, IcolFranchisee) = dt.Rows(i).Item("Intime") 
      If dt.Rows(i).Item("latein") > 0 Then 
       oSheet.Cells(Irow, IcolFranchisee + 1) = dt.Rows(i).Item("latein") 
      Else 
       oSheet.Cells(Irow, IcolFranchisee + 2) = dt.Rows(i).Item("latein") 
      End If 

      Irow = Irow + 1 

     Else 

      If dt.Rows(i).Item("AttDate") = strValue then 
      ' Sheet 1 
       oSheet = oBook.Worksheets(1) 

       oSheet.Cells(Irow, IcolFranchisee) = dt.Rows(i).Item("Intime") 
       If dt.Rows(i).Item("latein") > 0 Then 
        oSheet.Cells(Irow, IcolFranchisee + 1) = dt.Rows(i).Item("latein") 
       Else 
        oSheet.Cells(Irow, IcolFranchisee + 2) = dt.Rows(i).Item("latein") 
       End If 

       Irow = Irow + 1 

      Else 

       ' Sheet 2 
       osheet1 = oBook.Worksheets(2) 

       osheet1.Cells(Irow, IcolFranchisee) = dt.Rows(i).Item("Intime") 
       If dt.Rows(i).Item("latein") > 0 Then 
        osheet1.Cells(Irow, IcolFranchisee + 1) = dt.Rows(i).Item("latein") 
       Else 
        osheet1.Cells(Irow, IcolFranchisee + 2) = dt.Rows(i).Item("latein") 
       End If 

      End If 

      Irow = Irow + 1 

     End If 

     strValue = dt.Rows(i).Item("AttDate") 

    Next 

希望這是你在找什麼。