Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

Imports System.Data

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _

            ByVal e As System.EventArgs) Handles Button1.Click

        Dim ds As New DataSet1

        Dim t As DataTable = ds.Tables.Add("Items")

        t.Columns.Add("id", Type.GetType("System.Int32"))

        t.Columns.Add("Item", Type.GetType("System.String"))



        Dim r As DataRow

        Dim i As Integer

        For i = 0 To 9

            r = t.NewRow()

            r("id") = i

            r("Item") = "Item" & i

            t.Rows.Add(r)

        Next



        Dim objRpt As New CrystalReport1

        objRpt.SetDataSource(ds.Tables(1))

        CrystalReportViewer1.ReportSource = objRpt

        CrystalReportViewer1.Refresh()

    End Sub

End Class