vfp表格中怎么加入组合框来输入数据呢

vfp表格中如何加入组合框来输入数据呢？


大家好，这是个实现数据输入的表格，最后字段“状态”想让单元格获得焦点时，出现组合框，
“显示/隐藏”中做选择，然后把数据输入表格，这个怎么实现呢？vfp新手请教。
------解决方案--------------------
方法一：

1、把 Grid 的列数改为>0 &&方法二不需要此项
2、右键单击 Grid ，编辑，在工具条中把 Checkbox 拿到要加入复选框的列中
3、右键单击 Grid ，编辑，然后选择加入复选框的列。
在属性窗口上的“数据”页面上把 Grid 的 Colum（加入复选框的Column）的 CurrentControl 值改成 Check1，
然后根据你的需要修改 Sparse 的值，来指定 CurrentControl 属性是影响列对象中的全部单元，还是仅影响列对象中的活动单元。


方法二：在 Grid 的INIT 事件中：

With This.Column4
.AddObject("Check1","CheckBox")
.CurrentControl='Check1'
.Sparse=.F.
.Check1.Caption=''
.Check1.Visible=.T.
Endwith
*******************************************************************
同理可向 Grid 中添加 ComboBox 控件等

Grid 的 Init 事件

With This.Column3    && 假设姓别字段对应 Grid 的第3列
.AddObject("Combo100","Combobox")
.CurrentControl='Combo100'
*    .sparse=.f.
.Combo100.Style=2
.Combo100.RowSourceType=0
.Combo100.Visible=.T.
Endwith
This.Column3.Combo100.AddItem('男')
This.Column3.Combo100.AddItem('女')

或

Grid 的 Init 事件

With This.Column3
.AddObject("Combo100","Combobox")
.CurrentControl='Combo100'
* .sparse=.f.
.Combo100.Style=2
.Combo100.RowSourceType=0
.Combo100.Visible=.T.
Endwith
Select 表名 &&此表可以是Grid的数据源也可以不是Grid的数据源
Scan
This.Column3.Combo100.AddItem(字段名)
Endscan

或

Public gcBtmc(8)
gcBtmc(1)=''
gcBtmc(2)='补贴一'
gcBtmc(3)='补贴二'
gcBtmc(4)='补贴三'
gcBtmc(5)='补贴四'
gcBtmc(6)='补贴五'
gcBtmc(7)='补贴六'
gcBtmc(8)='补贴七'
With This.Column8
.AddObject('Combobox1','Combobox')
.CurrentControl='Combobox1'
.Combobox1.Style=2
.Combobox1.RowSourceType=5
.Combobox1.RowSource='gcBtmc'
.Combobox1.Visible=.T.
Endwith