Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Combo box still not Combo'ing
Message
 
 
À
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:
01667366
Vues:
67
>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

Try to put Thisform.cboSelectPerson.RowSource = '' && added per previous suggestion before you run the query.
Christian Isberner
Software Consultant
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform