Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Combo box still not Combo'ing
Message
From
20/03/2019 04:08:07
 
 
To
19/03/2019 15:23:53
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01667365
Message ID:
01667379
Views:
53
>>>>>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?
>
>I'll give it a try, but it isn't working from the get-go

Everything seems to be correct, so the problem must be somewhere else. Try dropping a Standard VFP Combobox on the form and use that to compare the results.

In my test neither the line "Thisform.cboSelectPerson.RowSource = ''" is necessary, nor Requery() or Refresh(). It just works, so my assumption is something in the class or some other code in the form that interfers.

Perhaps add another button to browse the cursor at a later point in time. Maybe another query is running into the same alias?
Christian Isberner
Software Consultant
Previous
Reply
Map
View

Click here to load this message in the networking platform