Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Combobox click in grid won't refresh other grids correct
Message
From
16/12/2010 12:16:59
Alp Berker
Defense Finance and Accounting Services
Indianapolis, Indiana, United States
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP
Network:
Windows 2003 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01492919
Message ID:
01492942
Views:
60
No, should I use that method?

it's being redefined when the grids loads with code, I don't have the combobox in the grid.
Is this the wrong appraoch? Should I just use that method?

WITH Thisform.grdControlRec
.recordsource = "ControlRec"
.recordsourcetype = 1
FOR intCol = 1 TO 3
mColHdr = '"' + IIF(intCol = 1, "Basic Symbol", IIF(intCol = 2, "Fiscal Yr", "Table Type")) + '"'
mcolName = '.column' + alltrim(str(intCol))
mcurFunction = mcolName + ".header1.Caption = " + mColHdr
&mCurFunction
mcmbName = 'column' + alltrim(str(intCol))
mcurFunction = mcolName + ".AddObject (mcmbName,'Combobox')"
&mCurFunction
mcurFunction = mcolName + ".CurrentControl = mcmbName"
&mCurFunction
mcurControl = mcolName + '.' + mcmbName + '.rowsource = IIF(intCol = 1, "basic_symbol.bs_code", IIF(intCol = 2, "fiscal_year.fy", "tabletype.datavalue"))'
&mcurControl
mcurControl = mcolName + '.' + mcmbName + '.rowsourcetype = 6'
&mcurControl
mcurControl = mcolName + '.' + mcmbName + '.Visible = .T.'
&mcurControl
ENDFOR
*ENDWITH
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform