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:
01117805
Vues:
19
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform