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

Yes, I have - that's how I know it's not working as it should.
"You don't manage people. You manage things - people you lead" Adm. Grace Hopper
Pflugerville, between a Rock and a Weird Place
Previous
Reply
Map
View

Click here to load this message in the networking platform