Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Combo box still not Combo'ing
Message
De
19/03/2019 14:58:45
 
 
À
19/03/2019 12:54:33
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01667365
Message ID:
01667370
Vues:
60
>>>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.
>
>Yeah, no love - combobox still shows empty and no dropdown when clicked on

Have you tried calling Refresh() or Requery() method of the control just after assigning RowSource property?
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform