Syntax

Public Sub addField(ByRef NewField As Field)

Description

This procedure used to add a new database field.

Parameters

Return value

No return value.

Sample

Public Sub main()        'Variables        Dim _symbolInfo As VTLGeneral.CSymbol=ClientCode.GetSymbolByName("GOLD")        If _symbolInfo is nothing then                GUI.MsgDialog("Symbol not found")                Exit Sub        End If        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")         'load high,low ,open and  data        _historyData = ClientCode.GetChartHistory(_symbolInfo.ID, VTLGeneral.ENUM_PERIOD.Day,VTLGeneral.ENUM_HISTORY_TYPE.HIS_HIGH, _recordCount)        For i = 1 To _recordCount-1                m_High.setValue(i,_historyData(i))        Next        _historyData = ClientCode.GetChartHistory(_symbolInfo.ID, VTLGeneral.ENUM_PERIOD.Day,VTLGeneral.ENUM_HISTORY_TYPE. HIS_LOW, _recordCount)        For i   = 1 To _recordCount-1                m_Low.setValue(i,_historyData(i))        Next        _historyData = ClientCode.GetChartHistory(_symbolInfo.ID, VTLGeneral.ENUM_PERIOD.Day,VTLGeneral.ENUM_HISTORY_TYPE. HIS_OPEN, _recordCount)        For i = 1 To _recordCount-1                m_Open.setValue(i,_historyData(i))        Next        _historyData = ClientCode.GetChartHistory(_symbolInfo.ID, VTLGeneral.ENUM_PERIOD.Day,VTLGeneral.ENUM_HISTORY_TYPE. HIS_CLOSE, _recordCount)        For i  = 1 To _recordCount-1                m_Close.setValue(i,_historyData(i))        Next        m_Recordset.addField(m_High)        m_Recordset.addField(m_High)        m_Recordset.addField(m_Low)        m_Recordset.addField(m_Close) End Sub  

See Also

• renameField
• removeField
• isValidField

Back to RecordSet
Back to VTL Server Script Index