Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Combo in grid doesn't show value
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows 7
Network:
Windows 2003 Server
Database:
MS SQL Server
Miscellaneous
Thread ID:
01519540
Message ID:
01519843
Views:
33
This message has been marked as a message which has helped to the initial question of the thread.
>>>It seems to work OK the way I re-coded except for this problem I had before and have now :(
>>>
>>>See attached - when I select something, everything goes blank - do you know a solution here?
>>>
>>>BTW, don't be surprised about the test data - I let my older son test this form and he found a lot of bugs.
>>
>>Put:
>>
>>this.Value = this.Value
>>
>>in InteractiveChange event of the combo.
>>
>>P.S. I see he is a big fan of English football :-)
>
>I removed the code for now at all. Also, in the Init of the form all interactive change get bound to form's InfoChanged method. In this method I just set lMadeChanges property to true.
>
>Here is the code which is called when this page is activated - do you see anything wrong?
>
>
>with thisform.pageframe1.pagSeatBlocks.grdSeatBlocks
>
>   .recordsource = "rsTSBlocks"
>   .rowheight = 24
>
>   .highlightstyle = 0
>   .highlightrowlinewidth = 3
>   *     .HighlightBackColor    = lnRowHighlightColor
>   *     .SelectedItemBackColor = lnSelectionHighlightColor
>   *     .HighlightForeColor    = rgb(255, 255, 255)
>
>   with .colLevels.cboLevels
>      .rowsource = ''
>      .rowsourcetype = 2
>      .parent.controlsource = 'rsTSBlocks.LevelID'
>       .rowsource = "csrBlockLevels"
>   endwith
>
>   with .colCenterMost.cboPosition
>
>      .rowsourcetype = 3
>      .rowsource = "select * from csrSeatsCentricity into cursor csrCM"
>      .parent.controlsource = 'rsTSBlocks.CenterMost'
>   endwith
>
>   with .colSections.cboSections
>
>      .rowsourcetype = 3
>      .rowsource = "select * from csrSections where LevelID = ?m.nLevelID into cursor csrSect"
>      .parent.controlsource = 'rsTSBlocks.SectionID'
>   endwith
>
>   .colRow.controlsource = 'rsTSBlocks.Row'
>   .colSeatStart.controlsource = 'rsTSBlocks.SeatStart'
>   .colNumSeats.controlsource = 'rsTSBlocks.NumSeats'
>   .colRanking.controlsource = 'rsTSBlocks.Ranking'
>   .colSequencing.controlsource = 'rsTSBlocks.Sequencing'
>   *   .colCenterMost.ControlSource = 'rsTSBlocks.CenterMost'
>   .setall('DynamicFontStrikeThru','thisform.RefreshSeatBlockGrid()')
>   .refresh()
>endwith
>SELECT rsTSBlocks
Try to change:
 with .colLevels.cboLevels
      .rowsource = ''
      .rowsourcetype = 2
      .parent.controlsource = 'rsTSBlocks.LevelID'
       .rowsource = "csrBlockLevels"
   endwith
* to
 with .colLevels.cboLevels
      .rowsource = ''
      .rowsourcetype = 3
      .parent.controlsource = 'rsTSBlocks.LevelID'
       .rowsource = "SELECT * FROM csrBlockLevels INTO CURSOR cboBlockLevels"
   endwith
>
>This problem is really aggravating, I had it with another page, but it's gone now.
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform