&& 假设姓别字段对应 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

thisform.grid1..value 这样写都错了

thisform.grid1.column（n）.combo1.value

只有第一个n需要变成你所在的列，combo1不变，除非你在一个单元格内插入了很多组合框，才会有combo2345678……

thisform.grid1..value

[此贴子已经被作者于2017-1-10 21:09编辑过]

你有QQ没有嘛，这里上传不了截图.我的是36653869

选择后才运行,可以这样：
在combo8.InteractiveChange的事件中执行：
Mych=thisform.grid1.
WAIT Mych WINDOW nowait
IF ALLTRIM(Mych)="是"
   DO FORM c:\bxgl\bxglsc\bxglxz.scx
ELSE
ENDIF

可以传图，按楼上吹版主说得做就行了，我的水平还不够啊，你的代码其实没错，我只是习惯性的觉得要用combo1