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 = "depID" Then Return depID
If Name = "depDescription" Then Return depDescription
If Name = "depAcctCode" Then Return depAcctCode
If Name = "depNotes" Then Return depNotes
If Name = "depIsActive" Then Return depIsActive
Return Nothing
End Function
' depID
Private m_depID As cField
Public ReadOnly Property depID() As cField
Get
If m_depID Is Nothing Then m_depID = New cField("tblDepartments", "x_depID", "depID", "[depID]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER, 0)
Return m_depID
End Get
End Property
' depDescription
Private m_depDescription As cField
Public ReadOnly Property depDescription() As cField
Get
If m_depDescription Is Nothing Then m_depDescription = New cField("tblDepartments", "x_depDescription", "depDescription", "[depDescription]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING, 0)
Return m_depDescription
End Get
End Property
' depAcctCode
Private m_depAcctCode As cField
Public ReadOnly Property depAcctCode() As cField
Get
If m_depAcctCode Is Nothing Then m_depAcctCode = New cField("tblDepartments", "x_depAcctCode", "depAcctCode", "[depAcctCode]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING, 0)
Return m_depAcctCode
End Get
End Property
' depNotes
Private m_depNotes As cField
Public ReadOnly Property depNotes() As cField
Get
If m_depNotes Is Nothing Then m_depNotes = New cField("tblDepartments", "x_depNotes", "depNotes", "[depNotes]", 203, OleDbType.LongVarWChar, EW_DATATYPE_MEMO, 0)
Return m_depNotes
End Get
End Property
' depIsActive
Private m_depIsActive As cField
Public ReadOnly Property depIsActive() As cField
Get
If m_depIsActive Is Nothing Then m_depIsActive = New cField("tblDepartments", "x_depIsActive", "depIsActive", "[depIsActive]", 11, OleDbType.Boolean, EW_DATATYPE_BOOLEAN, 0)
Return m_depIsActive
End Get
End Property
' Table level events
' Recordset Selecting event
Public Sub Recordset_Selecting(ByRef filter As String)