Question

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

Answer 1

方法一：

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

Answer 2

用replace 可以将字段值替换
如：
* Combo1.LostFocus
REPLACE TEMP.f1 WITH this.DisplayValue
thisform.grid1.Refresh