Page History
...
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