Syntax
Public sub setValue(ByVal RowIndex As Integer, ByVal Value As Double)Description
This subprocedure used to set field value by given the field index.
Parameters
| Parameter | Description |
| RowIndex | The field index that wants to set its value as 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_Open.setvalue(1,1.247) GUI.MsgDialog(m_Open. getvalue(1)) End Sub See Also