I have been asked how to do these things if you are a VB programmer.

 

Well my very first comment you may have guessed already :o) Use the templates! – yes that’s right, some sweet soul has created templates for the VB side of things as well.

 

Back to my little example of a native report implementation, I’m not much of a VB programmer but let me see if I can pull this one off…

In VB CreateData would look like this:

 

Public Function CreateData(ByVal reportFilters As IReportFiltersV2, ByVal engine As IReportEngineV2) As System.Data.DataView Implements INativeReportV2.CreateData

 

    Dim instance As ISmallBusinessInstance = engine.SmallBusinessInstance

    Dim view As DataView = instance.CustomerAccounts.DataView

    Return View

 

End Function

 

And Create Design would look something like this:

 

Public Sub CreateDesign(ByVal iReportDesign As IReportDesignV2) Implements INativeReportV2.CreateDesign

 

    iReportDesign.ReportHeader.ReportTitle.Text = "Hello World Invoice list"

    Dim columns As IReportColumnsV2 = iReportDesign.ReportColumns

    columns.CreateReportColumn("CustomerName", "Customer Name", ReportColumnType.RowLabel, ReportColumnDataType.Text)

    columns.CreateReportColumn("FriendlyDocumentName", "Document", ReportColumnType.RowLabel, ReportColumnDataType.Text)

    columns.CreateReportColumn("SubTotalAmount", "Sub Total", ReportColumnType.Data, ReportColumnDataType.CurrencyWithoutSymbol)

    columns.CreateReportColumn("Balance", "Balance", ReportColumnType.Data, ReportColumnDataType.CurrencyWithoutSymbol)

    columns.CreateReportColumn("DueDate", "Due Date", ReportColumnType.Data, ReportColumnDataType.Date)

 

End Sub

 

Not too hard!