Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Combo box still not Combo'ing
Message
De
23/03/2019 11:30:03
 
 
À
19/03/2019 12:11:31
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01667365
Message ID:
01667506
Vues:
61
>This is getting to be really irritating
>so...code from lost focus of First Name
>
>lname = Thisform.TxtLName.Value
>fname = This.Value
>SELECT officer
>SET ORDER TO FULLNAME   && PADR(UPPER(LASTNAME),25)+PADR(UPPER(FIRSTNAME),25)
>SEEK padr(Upper(lname),25) + padr(Upper(fname),25)
>IF FOUND()
>  Select Lastname, Firstname, DOB, empcnty From Officer ;
>    WHERE padr(Upper(LASTNAME),25)+ padr(Upper(FIRSTNAME),25) = padr(Upper(lname),25) + padr(Upper(fname),25) ;
>    INTO Cursor Countit nofilter      &&This returns 2 rows 
>  If Reccount() = 1
>    Thisform.editmode = "Edit"
>    Thisform.fillin
>  Else
>    Thisform.lblSelectPerson.Visible = .T.
>    Thisform.cboSelectPerson.RowSource = ''  && added per previous suggestion
>    With Thisform.cboSelectPerson
>      .RowSourceType = 6
>      .RowSource =  "Countit.lastname, firstname, DOB, empcnty"
>      .ColumnCount = 4
>      .ColumnWidths = '150,150,75,150'
>      .Visible = .T.
>      .ListIndex = 1
>    Endwith
>  Endif
>Endif
>
>
>The label and combobox displays, but the combobox is empty
>
>This is the same setup for a combobox that I'm using all over creation, but this is the only one that's not combo'ing. I have checked/compared the properties and all seems to be the same (except for the names, of course)
>
>What am I missing? 'Cuz as irritating as this has been, I just KNOW it's something simple

just a stupid question --- Did you confirm that program execution is indeed going through the conditional branches you're assuming is being executed?
(e.g. trace with debugger, or adding WAIT statements if running outside VFP IDE)
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform