combox问题 附源码
&& 假设姓别字段对应 Grid 的第4列With This.Column4
.AddObject("Combo4","Combobox")
.CurrentControl='Combo4'
* .sparse=.f.
.Combo4.Style=2
.Combo4.RowSourceType=0
.Combo4.Visible=.T.
Endwith
This.('男')
This.('女')
aa=thisform.grid1.
&& 第7列人没类别
With This.Column7
.AddObject("Combo7","Combobox")
.CurrentControl='Combo7'
* .sparse=.f.
.Combo7.Style=2
.Combo7.RowSourceType=0
.Combo7.Visible=.T.
Endwith
This.('是')
This.(' ')
&&第8列养老保险
With This.Column8
.AddObject("Combo8","Combobox")
.CurrentControl='Combo8'
* .sparse=.f.
.Combo8.Style=2
.Combo8.RowSourceType=0
.Combo8.Visible=.T.
Endwith
This.('是')
This.(' ')
只有我选择后才运行以下程式,可在实际是没有进行选择就运行以下程式.该如何做?
*Mych=thisform.grid1.
*WAIT Mych WINDOW nowait
*IF ALLTRIM(Mych)="是"
* DO FORM c:\bxgl\bxglsc\bxglxz.scx
* ELSE
*ENDIF
