Syntax

Public Function isValidField(ByVal FieldName As String) As Boolean

Description

This function used to check if the selected fieldis valid base on its name.

Parameters

Return value

Returns a true value if the selected fieldexists,otherwise returns false.

Sample

Public Sub main()        'Variables        Dim DB As New VTLGeneral.Database()        Dim RecordCount As Integer        Dim m_Recordset As VTLGeneral.RecordSet        Dim _historyData As object()        Dim Record As Integer        Dim m_Date As VTLGeneral.Field        Dim m_Open As VTLGeneral.Field        Dim m_High As VTLGeneral.Field        Dim m_Low As VTLGeneral.Field        Dim m_Close As VTLGeneral.Field        Dim _recordCount as integer = 100        Dim i As Integer        m_Recordset = DB.CreateRecord        m_Open = New VTLGeneral.Field        m_High = New VTLGeneral.Field        m_Low = New VTLGeneral.Field        m_Close = New VTLGeneral.Field        DB.RecordCount = _recordCount        RecordCount = _recordCount         'Initialize Recordsets        m_Open.initialize(_recordCount, "Open")        m_High.initialize(_recordCount, "High")        m_Low.initialize(_recordCount, "Low")        m_Close.initialize(_recordCount, "Close")         m_Recordset.addField(m_Open)        m_Recordset.addField(m_High)        m_Recordset.addField(m_Low)        m_Recordset.addField(m_Close)        ' remove Open field         m_Recordset.removeField("Open")        If Not m_Recordset.isValidField("Open") then                GUI.MsgDialog("The open field has been removed ")        Else                Dim _field As VTLGeneral.Field = m_Recordset.getField("Open")                GUI.MsgDialog(_field.getName())        End If End Sub  

See Also

• setValue
• getValue
• getFieldCount

Back to RecordSet
Back to VTL Server Script Index