Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Combobox click in grid won't refresh other grids correct
Message
From
19/12/2010 16:08:12
 
 
To
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:
01493312
Views:
64
Hi,

It's okay if you want manualy write code...

WITH thisform.grdControlRec

.RecordSource = "ControlRec"
.RecordSourceType = 1
.ColumnCount = 3

.Column1.Header1.Caption = "Basic Symbol"
.Column1.AddObject("Combo1", "ComboBox")
.Column1.CurrentControl = "Combo1"
.Column1.Combo1.RowSource = "basic_symbol.bs_code"
.Column1.Combo1.RowSourceType = 6

BINDEVENT(.Column1.Combo1, "InteractiveChange", thisform, "GridCombo1InteractiveChange")

.Column2.Header1.Caption = "Fiscal Yr"
.Column2.AddObject("Combo1", "ComboBox")
.Column2.CurrentControl = "Combo1"
.Column2.Combo1.RowSource = "fiscal_year.fy"
.Column2.Combo1.RowSourceType = 6

BINDEVENT(.Column2.Combo1, "InteractiveChange", thisform, "GridCombo2InteractiveChange")

.Column3.Header1.Caption = "Table Type"
.Column3.AddObject("Combo1", "ComboBox")
.Column3.CurrentControl = "Combo1"
.Column3.Combo1.RowSource = "tabletype.datavalue"
.Column3.Combo1.RowSourceType = 6

BINDEVENT(.Column3.Combo1, "InteractiveChange", thisform, "GridCombo3InteractiveChange")

ENDWITH


Then create 3 new methods on your form:
GridCombo1InteractiveChange, GridCombo2InteractiveChange, GridCombo3InteractiveChange

and write your code on that methods


Best regards,
Ony
Regards,
Ony
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform