1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Public Function GetSitesList(ByVal Criteria As Criteria, ByVal CountyName As String, ByVal TownName As String) As Site
Dim dsSite As New Site, Index As Integer
Dim Parameters() As String = {"@CountyName", "@TownName", "@Archive", "@Validate", "@CreateDate", "@StartDate", "@EndDate", "@ConstructionTypeId"}
Dim Values() As Object = {CountyName, TownName, IIf(Criteria.Archived, "O", "N"), IIf(Criteria.ToValidate, "N", "O"), IIf(Criteria.CreateSince, Criteria.SinceDate, SqlDateTime.Null), Criteria.FromDate, Criteria.ToDate, Criteria.ConstructionTypeId}
With SqlDASitesList
For Index = 0 To UBound(Parameters)
.SelectCommand.Parameters(Parameters(Index)).Value = Values(Index)
Next
.Fill(dsSite)
Return dsSite
'Mes modifications
Dim dvSort As New DataView
End With
End Function |
Partager