如何想表格中直接输入数据

[xudong2472]

表单中有一表格，一文本框，文本框的gotfocus代码如下：
thisformset.form1.grid1.RecordSource='' &&在改变表格控件记录源之前，暂时把记录源置空
If !Used('qxm')
Use qxm In 0
ENDIF
Select qxm
SET FILTER TO 客户编号=khbh
APPEND blank
With thisformset.form1.grid1
.ColumnCount=Fcount("qxm") &&让表格列数等于表的字段数
.RecordSource="qxm"
.RecordSourceType=1
For i=1 To Fcount("qxm")
.Columns(i).header1.Caption=Field(i) &&列数列的caption等于表的字段名
Endfor
Go Top
.Refresh
Endwith
thisformset.form1.grid1.Refresh单中有一表格，一文本框，文本框的gotfocus代码如下：
运行后qxm.dbf增加了一条空记录，但是无法输入到表格中，如何解决，请高手指教。谢谢！

[WWWWA]

示例： 没有用FORMSET，调试通过 USE r:\temp\tty thisform.grid1.RecordSource='' &&在改变表格控件记录源之前，暂时把记录源置空 Select tty With thisform.grid1 .ColumnCount=Fcount("tty") &&让表格列数等于表的字段数 .RecordSource="tty" .RecordSourceType=1 For i=1 To Fcount("tty") .Columns(i).header1.Caption=Field(i) &&列数列的caption等于表的字段名 .Columns(i).ControlSource=Field(i) Endfor Go Top .Refresh Endwith thisform.grid1.Refresh

[WWWWA]

.Columns(i).ControlSource="你的字段"

[xudong2472]

请问这段代码应写到什么位子？

[xudong2472]

我将程序修改为： thisformset.form1.grid1.RecordSource='' &&在改变表格控件记录源之前，暂时把记录源置空 If !Used('qxm') Use qxm In 0 ENDIF Select qxm SET FILTER TO 客户编号=khbh APPEND blank With thisformset.form1.grid1 .ColumnCount=Fcount("qxm") &&让表格列数等于表的字段数 .RecordSource="qxm" .RecordSourceType=1 For i=1 To Fcount("qxm") .Columns(i).header1.Caption=Field(i) &&列数列的caption等于表的字段名 .Columns(i).ControlSource=Field(i) Endfor Go Top .Refresh Endwith thisformset.form1.grid1.Refresh 但是没有解决问题。请wwwwa指教，谢谢！

[xudong2472]

非常感谢wwwwa的指点和帮助，问题解决了。结贴了。