如何想表格中直接输入数据
表单中有一表格，一文本框，文本框的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增加了一条空记录，但是无法输入到表格中，如何解决，请高手指教。谢谢！
[解决办法]
示例：
没有用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
