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:
01519842
Views:
18
>>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
This problem is really aggravating, I had it with another page, but it's gone now.
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform