Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
DBI-Tech ctList Control Question
Message
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
01117800
Message ID:
01117805
Views:
20
Same result


>Try this test again but now do:
>
>
>cId = "1"
>.oleList.ListCargo(nItem) = cId
>
>
>
>>Yes, I changed the code to:
>>
>>
>>cId  = TRANSFORM(Temp1.Id)
>>.oleList.ListCargo(nItem) = cId
>>
>>
>>cId is "1"
>>.oleList.ListCargo(nItem) is ""
>>
>>
>>
>>>>I am adding items to the list from a table:
>>>>
>>>>
>>>>** Table Employees
>>>>Id  Emp_Id  FullName
>>>>-----------------------
>>>>1   JONES   Jack Jones
>>>>2   SMITH   Steve Smith
>>>>3   ROBERTS Rich Roberts
>>>>
>>>>
>>>>My code:
>>>>
>>>>SCAN
>>>>
>>>>  nItem = nItem + 1
>>>>
>>>>  cListItem = Temp1.Emp_Id + CHR(10) + Temp1.FullName
>>>>
>>>>  .oleList.AddItem(cListItem)
>>>>
>>>>  .oleList.ListCargo(nItem) = TRANSFORM(Temp1.Id)
>>>>	
>>>>ENDSCAN
>>>>
>>>>
>>>>The problem is the ListCargo collection. I'm trying to store the record id
>>>>for later use.
>>>>
>>>>The help for it states:
>>>>"Specifies a non-visible text value for the list item. This property is used to attach
>>>>a text string to a list item. This text string is only stored by the list item. It is
>>>>not displayed in any way. The purpose of this string is to be determined by the programmer."
>>>>
>>>>If I directly set it as in
.oleList.ListCargo(nItem) = "1"
>>>>then it works fine.
>>>>
>>>>As I have it in the SCAN loop, it fails to work. In the debugger it displays as an
>>>>empty string.
>>>>
>>>>Anyone know what's wrong here?
>>>>
>>>>Thanks
>>>
>>>
>>>Kevin, did you manually check result of TRANSFORM(Temp1.Id) and value of Temp1.Id to make sure that is ok?
Everything makes sense in someone's mind
public class SystemCrasher :ICrashable
In addition, an integer field is not for irrational people
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform