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

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)
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform