[RESOLVED] Generating reports without Crystal reports in vb.net

[.paul.]

here's a simple example using a datatable + outputting an html table in a webbrowser:

Public Class Form1
 
    Dim dt As New DataTable
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        dt.Columns.Add("c1")
        dt.Columns.Add("c2")
        dt.Columns.Add("c3")
        dt.Columns.Add("c4")
        dt.Columns.Add("c5")
 
        For r As Integer = 1 To 10
            dt.Rows.Add(New Object() {"r" & r.ToString & "c1", "r" & r.ToString & "c2", "r" & r.ToString & "c3", "r" & r.ToString & "c4", "r" & r.ToString & "c5"})
        Next
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strBuilder As New System.Text.StringBuilder
        strBuilder.Append("<table border='1' cellpadding='10' cellspacing='0'>")
        For x As Integer = 0 To dt.Rows.Count - 1
            strBuilder.Append("<tr>") 'Start the row 
            strBuilder.Append(String.Format("<td>{0}</td><td>{1}</td><td>{2}</td><td>{3}</td><td>{4}</td>", _
                          dt.Rows(x).Item(0).ToString, dt.Rows(x).Item(1).ToString, dt.Rows(x).Item(2).ToString, dt.Rows(x).Item(3).ToString, dt.Rows(x).Item(4).ToString))
            strBuilder.Append("</tr>")  'Finish the row 
        Next
        WebBrowser1.DocumentText = strBuilder.ToString
        'alternatively you can save strBuilder.ToString as html + show it in ie
    End Sub
 
End Class