Public Function LoadRs(sFilter As String) As OleDbDataReader
Dim RsRows As OleDbDataReader
' Set up filter (SQL WHERE clause)
CurrentFilter = sFilter
Dim sSql As String = SQL()
Try
RsRows = Conn.GetDataReader(sSql)
If RsRows.HasRows Then
Return RsRows
Else
RsRows.Close()
RsRows.Dispose()
End If
Catch
End Try
Return Nothing
End Function
' Load row values from recordset
Public Sub LoadListRowValues(ByRef RsRow As OleDbDataReader)
schSchID.DbValue = RsRow("schSchID")
schDate.DbValue = RsRow("schDate")
End Sub
' Render list row values
Public Sub RenderListRow()
' Row Rendering event
Row_Rendering()
' Row Rendered event
Row_Rendered()
End Sub
Public CurrentAction As String ' Current action
Public EventCancelled As Boolean ' Event cancelled
Public CancelMessage As String ' Cancel message
' Row Type
Public RowType As Integer
Public CssClass As String = "" ' CSS class
Public CssStyle As String = "" ' CSS style
Public RowClientEvents As String = "" ' Row client events
' Row Attribute
Public ReadOnly Property RowAttributes() As String
Get
Dim sAtt As String = ""
If ew_NotEmpty(CssStyle) Then
sAtt = sAtt & " style=""" & CssStyle.Trim() & """"
End If
If ew_NotEmpty(CssClass) Then
sAtt = sAtt & " class=""" & CssClass.Trim() & """"
End If
If m_Export = "" Then
If ew_NotEmpty(RowClientEvents) Then
sAtt = sAtt & " " & RowClientEvents.Trim()
End If
End If
Return sAtt
End Get
End Property
' Export
Private m_Export As String
Public Property Export() As String
Get
Return m_Export
End Get
Set(ByVal Value As String)
m_Export = Value
End Set
End Property
' Export Original Value
Public ExportOriginalValue As Boolean = EW_EXPORT_ORIGINAL_VALUE
' Export All
Public ExportAll As Boolean = EW_EXPORT_ALL
' Send Email
Public SendEmail As Boolean
' Custom Inner Html
Public TableCustomInnerHtml As Object
'
' Field objects
'
Public Function FieldByName(Name As String) As Object
If Name = "schSchID" Then Return schSchID
If Name = "schDate" Then Return schDate
Return Nothing
End Function
' schSchID
Private m_schSchID As cField
Public ReadOnly Property schSchID() As cField
Get
If m_schSchID Is Nothing Then m_schSchID = New cField("askDate", "x_schSchID", "schSchID", "tblSchedule.schSchID", 3, OleDbType.Integer, EW_DATATYPE_NUMBER, 0)
Return m_schSchID
End Get
End Property
' schDate
Private m_schDate As cField
Public ReadOnly Property schDate() As cField
Get
If m_schDate Is Nothing Then m_schDate = New cField("askDate", "x_schDate", "schDate", "tblSchedule.schDate", 7, OleDbType.Date, EW_DATATYPE_DATE, 6)
Return m_schDate
End Get
End Property
' Table level events
' Recordset Selecting event
Public Sub Recordset_Selecting(ByRef filter As String)