Syntax
Public Sub setValue(ByVal RowIndex As Integer, ByVal Value As Double)Description
This procedure is used to set the value to row index a that belongs to specific Field
Parameters
| Parameter | Description |
| RowIndex | The index of the row at a field to set it value, a value of type Integer. |
| Value | The value to be set, a value of type Double. |
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") m_Recordset.addField(m_High) m_Recordset.addField(m_High) m_Recordset.addField(m_Low) m_Recordset.addField(m_Close) 'load high and set its values _historyData = ClientCode.GetChartHistory(_symbolInfo.ID, VTLGeneral.ENUM_PERIOD.Day,VTLGeneral.ENUM_HISTORY_TYPE.HIS_HIGH, _recordCount) Dim q For q = 1 To _recordCount-1 m_High.setValue(i,_historyData(i)) Next End Sub See Also