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:
01117803
Views:
19
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