If Convert.ToString(locLighting.CurrentValue) = "1" Then
locLighting.ViewValue = "Yes"
Else
locLighting.ViewValue = "No"
End If
locLighting.CssStyle = ""
locLighting.CssClass = ""
locLighting.ViewCustomAttributes = ""
' locIsActive
If Convert.ToString(locIsActive.CurrentValue) = "1" Then
locIsActive.ViewValue = "Yes"
Else
locIsActive.ViewValue = "No"
End If
locIsActive.CssStyle = ""
locIsActive.CssClass = ""
locIsActive.ViewCustomAttributes = ""
' locDescription
locDescription.HrefValue = ""
' locLighting
locLighting.HrefValue = ""
' locIsActive
locIsActive.HrefValue = ""
' 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 = "locID" Then Return locID
If Name = "locDescription" Then Return locDescription
If Name = "locLighting" Then Return locLighting
If Name = "locIsActive" Then Return locIsActive
Return Nothing
End Function
' locID
Private m_locID As cField
Public ReadOnly Property locID() As cField
Get
If m_locID Is Nothing Then m_locID = New cField("tblLocations", "x_locID", "locID", "[locID]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER, 0)
Return m_locID
End Get
End Property
' locDescription
Private m_locDescription As cField
Public ReadOnly Property locDescription() As cField
Get
If m_locDescription Is Nothing Then m_locDescription = New cField("tblLocations", "x_locDescription", "locDescription", "[locDescription]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING, 0)
Return m_locDescription
End Get
End Property
' locLighting
Private m_locLighting As cField
Public ReadOnly Property locLighting() As cField
Get
If m_locLighting Is Nothing Then m_locLighting = New cField("tblLocations", "x_locLighting", "locLighting", "[locLighting]", 11, OleDbType.Boolean, EW_DATATYPE_BOOLEAN, 0)
Return m_locLighting
End Get
End Property
' locIsActive
Private m_locIsActive As cField
Public ReadOnly Property locIsActive() As cField
Get
If m_locIsActive Is Nothing Then m_locIsActive = New cField("tblLighting", "x_locIsActive", "locIsActive", "[locIsActive]", 11, OleDbType.Boolean, EW_DATATYPE_BOOLEAN, 0)
Return m_locIsActive
End Get
End Property
' Table level events
' Recordset Selecting event
Public Sub Recordset_Selecting(ByRef filter As String)