[此贴子已经被作者于2005-8-29 11:05:18编辑过]

提示为：字段　月份是只读的。光标停在＞处

每次都是这样，出现在保存的时候，挂起看光标停在也就是往数据库写入数据的语句前： 保存按钮的CLICK事件代码如下

*判断当前是否处于添加或编辑状态 if not (thisform.isadding or thisform.iseditting) return &&在不处于添加或编辑状态时不执行保存操作 endif *执行保存记录操作，首先获得输入 cRQ=alltrim(thisform.txt月份.value) cDW=alltrim(thisform.cmbDW.value) cWZMC=ALLTRIM(thisform.txt物资名称.Value) cSL=ALLTRIM(thisform.txt数量.Value) cGG=ALLTRIM(thisform.txt规格.Value) cWM=ALLTRIM(thisform.cmbWM.Value) cDJ=ALLTRIM(thisform.txt单价.Value) cXZ=ALLTRIM(thisform.cmbXZ.Value) cYT=ALLTRIM(thisform.cmbYT.Value) if empty(cRQ) &&验证日期是否为空 messagebox("月份不能为空！",16,"料单明细管理") thisform.txt月份.value="" thisform.txt月份.setfocus return endif if empty(cDW) &&验证单位是否为空 messagebox("领料单位不能为空！",16,"料单明细管理") thisform.cmbDW.value="" thisform.cmbDW.setfocus return ENDIF if empty(cWZMC) &&验证物资名称是否为空 messagebox("物资名称不能为空！",16,"料单明细管理") thisform.txt物资名称.value="" thisform.txt物资名称.setfocus return endif if empty(cSL) &&验证数量是否为空 messagebox("数量不能为空！",16,"料单明细管理") thisform.cmbSL.value="" thisform.cmbSL.setfocus return endif if empty(cGG) &&验证规格是否为空 messagebox("规格名不能为空！",16,"料单明细管理") thisform.cmbGG.value="" thisform.cmbGG.setfocus return endif if empty(cWM) &&验证位名是否为空 messagebox("位名不能为空！",16,"料单明细管理") thisform.cmbWM.value="" thisform.cmbWM.setfocus return endif if empty(cDJ) &&验证单价是否为空 messagebox("单价不能为空！",16,"料单明细管理") thisform.txt单价.value="" thisform.txt单价.setfocus return endif if empty(cXZ) &&验证材料性质是否为空 messagebox("材料性质不能为空！",16,"料单明细管理") thisform.cmbXZ.value="" thisform.cmbXZ.setfocus return endif if empty(cYT) &&验证材料用途是否为空 messagebox("材料用途不能为空！",16,"料单明细管理") thisform.cmbYT.value="" thisform.cmbYT.setfocus return endif *将通过验证的数据保存到系统用户表 if thisform.isadding ＞ insert into 料单明细(月份,单位,物资名称,数量,规格,位名,单价,性质,用途) values (cRQ,cDW,cWZMC,cSL,CGG,cWM,cDJ,cXZ,cYT) else replace 月份 with cRQ,单位 with cDW, 物资名称 with cWZMC,数量 with cSL, 规格 with cGG, 位名 with cWM, 单价 with cDJ,性质 with cXZ ,用途 with cYT RECORD nrecno endif *恢复各个文本框数据绑定属性 thisform.txt月份.controlsource="料单明细.月份" thisform.cmbDW.controlsource="料单明细.单位" thisform.txt物资名称.controlsource="料单明细.物资名称" thisform.txt数量.controlsource="料单明细.数量" thisform.txt规格.controlsource="料单明细.规格" thisform.cmbWM.controlsource="料单明细.位名" thisform.txt单价.controlsource="料单明细.单价" thisform.cmbXZ.controlsource="料单明细.性质" thisform.cmbYT.controlsource="料单明细.用途" *恢复文本框的只读属性 thisform.txt月份.readonly=.t. thisform.cmbDW.readonly=.t. thisform.txt物资名称.ReadOnly=.t. thisform.txt数量.ReadOnly=.t. thisform.txt规格.ReadOnly=.t. thisform.cmbWM.ReadOnly=.t. thisform.txt单价.ReadOnly=.t. thisform.cmbXZ.ReadOnly=.t. thisform.cmbYT.ReadOnly=.t. *使新添加的记录或被修改记录成为当前记录 if thisform.isadding go bottom else go nrecno endif thisform.refresh *清除编辑和添加状态标记 thisform.isadding=.f. thisform.iseditting=.f. thisform.caption="料单明细管理-[浏览]" &&修改表单标题 thisform.myclass11.enabled=.t. &&重新启用记录导航条 thisform.cmdexit.enabled=.t. &&重新启用退出按钮 thisform.cmdadd.enabled=.t. &&重新启用添加按钮 thisform.cmdedit.enabled=.t. &&重新启用修改按钮 thisform.cmddelete.enabled=.t. &&重新启用删除按钮 messagebox("数据保存成功",64,"料单明细管理")