VFP中如何在文本框中输入文字

假设要在文本框中显示“中郑郑华人民共和国”，可喊侍颂以在此控件的value属谈慧性中设置此行字。

也可在代码中写:

thisform.text1.value="中华人民共和国"

如下：

编辑框的内容有两种情况：

一种是程序自动显示的，那么就要求御雀码你在设计程序时在表单的初始化事件（即init)对编辑框岁橘进行赋值

第二种情况就是等待用户输入内容，一般情况下镇哪程序要记录用户的一些东西或者要求用户输入值以便后续判断时可以使用编辑框，用户输入后，再在命令按钮中将值赋值给变量，以便后续使用该值。

方法一：

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

---