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 = "msgID" Then Return msgID
If Name = "msgText" Then Return msgText
If Name = "msgStartDate" Then Return msgStartDate
If Name = "msgEndDate" Then Return msgEndDate
Return Nothing
End Function
' msgID
Private m_msgID As cField
Public ReadOnly Property msgID() As cField
Get
If m_msgID Is Nothing Then m_msgID = New cField("tblMessage", "x_msgID", "msgID", "[msgID]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER, 0)
Return m_msgID
End Get
End Property
' msgText
Private m_msgText As cField
Public ReadOnly Property msgText() As cField
Get
If m_msgText Is Nothing Then m_msgText = New cField("tblMessage", "x_msgText", "msgText", "[msgText]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING, 0)
Return m_msgText
End Get
End Property
' msgStartDate
Private m_msgStartDate As cField
Public ReadOnly Property msgStartDate() As cField
Get
If m_msgStartDate Is Nothing Then m_msgStartDate = New cField("tblMessage", "x_msgStartDate", "msgStartDate", "[msgStartDate]", 135, OleDbType.DBTimeStamp, EW_DATATYPE_DATE, 6)
Return m_msgStartDate
End Get
End Property
' msgEndDate
Private m_msgEndDate As cField
Public ReadOnly Property msgEndDate() As cField
Get
If m_msgEndDate Is Nothing Then m_msgEndDate = New cField("tblMessage", "x_msgEndDate", "msgEndDate", "[msgEndDate]", 135, OleDbType.DBTimeStamp, EW_DATATYPE_DATE, 6)
Return m_msgEndDate
End Get
End Property
' Table level events
' Recordset Selecting event
Public Sub Recordset_Selecting(ByRef filter As String)