Syntax
Public Function getValue(ByVal RowIndex As Integer) As Double
This function used to get field value by given the field index.
Parameters
Parameter | Description |
RowIndex | Field index to get its value, a value of type integer |
Return value
Returns the requested field value of type Double.
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