请各位都来讨论一下，这到底出什么故障：
我的表单做好后(数据环境为采购入库单)，我在表单里的INIT过程中写入啦APPEN BLAND,而且所有文本框都设READONLY=.F.;其中有一个TXTDATE文本框，我在INIT过程中写入THIS.VALUE=TATE（）,目的是要其自动跳出系统当前日期;VALUE属性设为DATE(),CONTROLSOURCE属性设为无,为何运行时会出现当前日期,但就是无法保存到我的"采购入库单"库存表里面啊,但其怪的是我如用手动输入日期就可保存.好怪哦,哪位高手能否指点迷津啊
以上是我的压缩文件.
我的QQ号是447258519.

NLJvC5jw.rar (21.98 KB) [求助]为何表单内容无法保存

[此贴子已经被作者于2005-12-25 12:00:50编辑过]

1、你的程序我看了下，不能存日期的问题是因为你的表单里TXTDATE文本框的contorlsourc属性没有和表INFLOW.DBF建立关联
2、因你在TXTDATE文本框的INIT程序中输入了‘THIS.VALUE=DATE()’，那么它的VALUE属性应该为‘无’
3、在FORM1的INIT程序中加入了APPEND BLANK命令那么在command1里的CLICK程序中就不用再加APPEND BLANK命令了，不然会一次加入两个空的记录。

我的修改方式是：
1、去掉了command1,click程序中的APPEND BLANK、THISFORM。TXTDATE。SETFOCUS（）命令
2、把TXTDATE中的contorlsourc属性和表INFLOW.DBF中的DATE字段建立了关联,VALUE属性应该为‘无’

还有一个问题想请教：SETFOCUS（）是怎么用的，它有什么做用，我不知道这个函数是做什么的？？/