
DM API OBJECTS 117
PCDSQL
txtFullName.Text = oUpdateSQL.GetColumnValue(2)
End Sub
Private Sub lstUserIDs_Click()
Dim nListIndex As Long
Dim sTempBuf As String
Dim nRowIndex As Long
nListIndex = lstUserIDs.ListIndex
'The SQL row is one larger than the list index,
'so, add one to set the SQL row index.
nRowIndex = nListIndex + 1
nResult = oUpdateSQL.SetRow(nRowIndex)
'This is the full name column value.
sTempBuf = oUpdateSQL.GetColumnValue(2)
txtFullName.Text = sTempBuf
End Sub
Comentarios a estos manuales