如何导出一组行取决于日期从数据表到excel的多个工作表

Question

我想导出特定的行到多个表格的excel取决于日期从数据表在vb.net

我的代码

我想要17/08/2016在一张纸上，18/08/2016在下一张纸上。我的表行是这样的:

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

希望这是你正在寻找的