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 = "lfxID" Then Return lfxID
If Name = "lfxCode" Then Return lfxCode
If Name = "lfxDescription" Then Return lfxDescription
If Name = "lfxMFG" Then Return lfxMFG
If Name = "lfxModel" Then Return lfxModel
If Name = "lfxSerialNumber" Then Return lfxSerialNumber
If Name = "lfxLamp" Then Return lfxLamp
If Name = "lfxFixtureTypeID" Then Return lfxFixtureTypeID
If Name = "lfxLocationID" Then Return lfxLocationID
If Name = "lfxChannel" Then Return lfxChannel
If Name = "lfxIsActive" Then Return lfxIsActive
If Name = "lfxCreatedBy" Then Return lfxCreatedBy
If Name = "lfxCreatedOn" Then Return lfxCreatedOn
If Name = "lfxModifiedBy" Then Return lfxModifiedBy
If Name = "lfxModifiedOn" Then Return lfxModifiedOn
Return Nothing
End Function
' lfxID
Private m_lfxID As cField
Public ReadOnly Property lfxID() As cField
Get
If m_lfxID Is Nothing Then m_lfxID = New cField("ltgFixtureMaster", "x_lfxID", "lfxID", "[lfxID]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER, 0)
Return m_lfxID
End Get
End Property
' lfxCode
Private m_lfxCode As cField
Public ReadOnly Property lfxCode() As cField
Get
If m_lfxCode Is Nothing Then m_lfxCode = New cField("ltgFixtureMaster", "x_lfxCode", "lfxCode", "[lfxCode]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING, 0)
Return m_lfxCode
End Get
End Property
' lfxDescription
Private m_lfxDescription As cField
Public ReadOnly Property lfxDescription() As cField
Get
If m_lfxDescription Is Nothing Then m_lfxDescription = New cField("ltgFixtureMaster", "x_lfxDescription", "lfxDescription", "[lfxDescription]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING, 0)
Return m_lfxDescription
End Get
End Property
' lfxMFG
Private m_lfxMFG As cField
Public ReadOnly Property lfxMFG() As cField
Get
If m_lfxMFG Is Nothing Then m_lfxMFG = New cField("ltgFixtureMaster", "x_lfxMFG", "lfxMFG", "[lfxMFG]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING, 0)
Return m_lfxMFG
End Get
End Property
' lfxModel
Private m_lfxModel As cField
Public ReadOnly Property lfxModel() As cField
Get
If m_lfxModel Is Nothing Then m_lfxModel = New cField("ltgFixtureMaster", "x_lfxModel", "lfxModel", "[lfxModel]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING, 0)
Return m_lfxModel
End Get
End Property
' lfxSerialNumber
Private m_lfxSerialNumber As cField
Public ReadOnly Property lfxSerialNumber() As cField
Get
If m_lfxSerialNumber Is Nothing Then m_lfxSerialNumber = New cField("ltgFixtureMaster", "x_lfxSerialNumber", "lfxSerialNumber", "[lfxSerialNumber]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING, 0)
Return m_lfxSerialNumber
End Get
End Property
' lfxLamp
Private m_lfxLamp As cField
Public ReadOnly Property lfxLamp() As cField
Get
If m_lfxLamp Is Nothing Then m_lfxLamp = New cField("ltgFixtureMaster", "x_lfxLamp", "lfxLamp", "[lfxLamp]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING, 0)
Return m_lfxLamp
End Get
End Property
' lfxFixtureTypeID
Private m_lfxFixtureTypeID As cField
Public ReadOnly Property lfxFixtureTypeID() As cField
Get
If m_lfxFixtureTypeID Is Nothing Then m_lfxFixtureTypeID = New cField("ltgFixtureMaster", "x_lfxFixtureTypeID", "lfxFixtureTypeID", "[lfxFixtureTypeID]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER, 0)
Return m_lfxFixtureTypeID
End Get
End Property
' lfxLocationID
Private m_lfxLocationID As cField
Public ReadOnly Property lfxLocationID() As cField
Get
If m_lfxLocationID Is Nothing Then m_lfxLocationID = New cField("ltgFixtureMaster", "x_lfxLocationID", "lfxLocationID", "[lfxLocationID]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER, 0)
Return m_lfxLocationID
End Get
End Property
' lfxChannel
Private m_lfxChannel As cField
Public ReadOnly Property lfxChannel() As cField
Get
If m_lfxChannel Is Nothing Then m_lfxChannel = New cField("ltgFixtureMaster", "x_lfxChannel", "lfxChannel", "[lfxChannel]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING, 0)
Return m_lfxChannel
End Get
End Property
' lfxIsActive
Private m_lfxIsActive As cField
Public ReadOnly Property lfxIsActive() As cField
Get
If m_lfxIsActive Is Nothing Then m_lfxIsActive = New cField("ltgFixtureMaster", "x_lfxIsActive", "lfxIsActive", "[lfxIsActive]", 11, OleDbType.Boolean, EW_DATATYPE_BOOLEAN, 0)
Return m_lfxIsActive
End Get
End Property
' lfxCreatedBy
Private m_lfxCreatedBy As cField
Public ReadOnly Property lfxCreatedBy() As cField
Get
If m_lfxCreatedBy Is Nothing Then m_lfxCreatedBy = New cField("ltgFixtureMaster", "x_lfxCreatedBy", "lfxCreatedBy", "[lfxCreatedBy]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING, 0)
Return m_lfxCreatedBy
End Get
End Property
' lfxCreatedOn
Private m_lfxCreatedOn As cField
Public ReadOnly Property lfxCreatedOn() As cField
Get
If m_lfxCreatedOn Is Nothing Then m_lfxCreatedOn = New cField("ltgFixtureMaster", "x_lfxCreatedOn", "lfxCreatedOn", "[lfxCreatedOn]", 135, OleDbType.DBTimeStamp, EW_DATATYPE_DATE, 6)
Return m_lfxCreatedOn
End Get
End Property
' lfxModifiedBy
Private m_lfxModifiedBy As cField
Public ReadOnly Property lfxModifiedBy() As cField
Get
If m_lfxModifiedBy Is Nothing Then m_lfxModifiedBy = New cField("ltgFixtureMaster", "x_lfxModifiedBy", "lfxModifiedBy", "[lfxModifiedBy]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING, 0)
Return m_lfxModifiedBy
End Get
End Property
' lfxModifiedOn
Private m_lfxModifiedOn As cField
Public ReadOnly Property lfxModifiedOn() As cField
Get
If m_lfxModifiedOn Is Nothing Then m_lfxModifiedOn = New cField("ltgFixtureMaster", "x_lfxModifiedOn", "lfxModifiedOn", "[lfxModifiedOn]", 135, OleDbType.DBTimeStamp, EW_DATATYPE_DATE, 6)
Return m_lfxModifiedOn
End Get
End Property
' Table level events
' Recordset Selecting event
Public Sub Recordset_Selecting(ByRef filter As String)