Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Combo box still not Combo'ing
Message
From
20/03/2019 12:07:05
 
 
To
19/03/2019 12:54:33
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01667365
Message ID:
01667394
Views:
55
>>>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

here's a stupid question --- do you have a grid active on the form?
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform