Instruction Manual

i.LON 100 Internet Server Programmer’s Reference
myDataRow_DpNVL = myDataTable_DpNVL.Rows(0)
'Get the first and only DpNVL returned. Although the schema
'created for the project specifies that only 1 element can
'exist in this table, an index is still required to access the
'collection.
Dim myDataRow_DpNVL As DataServerList_Result_Element.DpNVLRow
Dim myDataRow_NVL As DataServerList_Result_Element.NVLRow
Dim i As Int16
RichTextBox1.Text = ""
'A DataSet can serve as a Data Source for many OLE and ActiveX
'controls. Normally, the following code is not necessary. The
'following loop traverses the collection of NVL points stored
'in the DataSet returned by the function and displays them in a
'text box, line by line.
For i = 0 To myDataTable_NVL.Rows.Count - 1
myDataRow_NVL = myDataTable_NVL.Rows(i)
With myDataRow_NVL
RichTextBox1.Text = RichTextBox1.Text & _
.UCPTindex & " " & _
.UCPTlocation & " " & _
.UCPTpointName & vbCrLf
Next
End With
14-12