Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
DBI-Tech ctList Control Question
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Divers
Thread ID:
01117800
Message ID:
01117804
Vues:
20
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?
In the End, we will remember not the words of our enemies, but the silence of our friends - Martin Luther King, Jr.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform