DaniWeb IT Discussion Community - View Single Post - Export DataTable to Excel with variable number of fields

Re: Export DataTable to Excel with variable number of fields

Dec 5th, 2007

Problem solved.
I simply added a funktion that returns the string containing the values.

By calling the funktion like this:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
values = DataValues(row, dt.Columns.Count - 1)
values = DataValues(row, dt.Columns.Count - 1)

The information is returned like this:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
   Private Function DataValues(ByVal DRow As DataRow, ByVal Max As Integer) As String
        Dim retVal As String
 
        retVal = "'" & DRow.Item(0) & "',"
        For i As Integer = 1 To Max - 1
            retVal &= "'" & DRow.Item(i) & "',"
        Next
        retVal &= "'" & DRow.Item(Max) & "'"
 
        Return retVal
    End Function
   Private Function DataValues(ByVal DRow As DataRow, ByVal Max As Integer) As String
        Dim retVal As String

        retVal = "'" & DRow.Item(0) & "',"
        For i As Integer = 1 To Max - 1
            retVal &= "'" & DRow.Item(i) & "',"
        Next
        retVal &= "'" & DRow.Item(Max) & "'"

        Return retVal
    End Function