Public Class ReportModel Inherits BaseModel Public Sub New(pState As State) MyBase.New(pState) End Sub Public Function List(pEnvelopeId As Integer) As DataTable Dim oSql As String = $"SELECT * FROM VWSIG_ENVELOPE_REPORT WHERE ENVELOPE_ID = {pEnvelopeId}" Dim oTable As DataTable = Database.GetDatatable(oSql) Return oTable End Function End Class