6.53.1 VB Example

Dim iRet As Integer, iRecords As Integer, iCount As Integer, _

         sBuff As String, lFlags As Long 

 

iRet = LceSetSelectOptions(iSession, "*BACKWARDS,  *MAXREC25")

iRet = LceSelect(iSession, "SURNAME, SALARY", "PSLMST", "", _

         LceFalse, iRecords)

 

sBuff = space(256, chr(0))

For iCount=1 to iRecords

         iRet = LceGetSelect(iSession, "PSLMST", iCount, "SURNAME")

         iRet = LceGetFieldValueX(iSession, "SURNAME", sBuff, lFlags)

         lstNames.AddItem  sTrim (sBuff)

         lstNames.ItemData (lstNames.NewIndex) = iCount

Next