请教两个关于用表单增加记录的奇怪的问题!!
问题1.我设计了一个在表中增加记录并输入数据的表单,在“开始”按钮click中输入以下代码:
THIS.CAPTION="继 续"
SELE CAILIAO
begin tran
APPE BLAN
THISFORM.cldm.value=""
THISFORM.CLM.VALUE=""
THISFORM.GZ.VALUE=""
THISFORM.KCSL.VALUE=0.00
THISFORM.DW.VALUE=""
THISFORM.CLDJ.VALUE=0.00
THISFORM.BZ.VALUE=""
THISFORM.CLDM.ENABLED=.T.
THISFORM.JHSDM.ENABLED=.T.
THISFORM.CLZL.ENABLED=.T.
THISFORM.CLM.ENABLED=.T.
THISFORM.GZ.ENABLED=.T.
THISFORM.KCSL.ENABLED=.T.
THISFORM.DW.ENABLED=.T.
THISFORM.CLDJ.ENABLED=.T.
THISFORM.BZ.ENABLED=.T.
THISFORM.CLDM.SETFOCUS
THISFORM.REFRESH
THIS.ENABLED=.F.
THISFORM.COMMAND2.ENABLED=.t.
THISFORM.COMMAND3.ENABLED=.T.
THISFORM.COMMAND4.ENABLED=.f.
奇怪的是,我在appe blan后面加上语句?recno()和wait""后,返回的记录值是-1,appe blan不是自动定位新增加的记录处的吗?为什么会这样?然后我又在这段程序的最后放这两条语句,显示的结果居然是3,我只有一条记录,appe blan后也只有两条记录,为什么指针会到了最后的呢??
问题2:
我的JHSDM和CLZL是组合框来的(其他都是文本框),我在输入CLDM的数据后,经过一段在valid的验证代码如下:
local r
r=recno()
cldm1=ALLTRIM(this.value)
if len(alltrim(this.value))=10
loca for alltrim(cailiao.cldm)==alltrim(this.value)
if not eof()
=messagebox("已经有此材料代码,请从新输入材料代码!",48+0+0,"警告")
return 0
else
go r
repl cailiao.cldm with cldm1
retu .t.
endi
else
=messagebox("请输入十位的材料代码!",48+0+0,"警告")
retu 0
endi
除了cldm文本框外,其他的文本框和组合框都用controlsource绑定了数据表的字段。
到go r处出错,原因是问题1,但是在我输入cldm的时候,JHSDM和CLZL是无效的!为什么会这样??我明明把它们的enabled至1了的啊!
THIS.CAPTION="继 续"
SELE CAILIAO
begin tran
APPE BLAN
THISFORM.cldm.value=""
THISFORM.CLM.VALUE=""
THISFORM.GZ.VALUE=""
THISFORM.KCSL.VALUE=0.00
THISFORM.DW.VALUE=""
THISFORM.CLDJ.VALUE=0.00
THISFORM.BZ.VALUE=""
THISFORM.CLDM.ENABLED=.T.
THISFORM.JHSDM.ENABLED=.T.
THISFORM.CLZL.ENABLED=.T.
THISFORM.CLM.ENABLED=.T.
THISFORM.GZ.ENABLED=.T.
THISFORM.KCSL.ENABLED=.T.
THISFORM.DW.ENABLED=.T.
THISFORM.CLDJ.ENABLED=.T.
THISFORM.BZ.ENABLED=.T.
THISFORM.CLDM.SETFOCUS
THISFORM.REFRESH
THIS.ENABLED=.F.
THISFORM.COMMAND2.ENABLED=.t.
THISFORM.COMMAND3.ENABLED=.T.
THISFORM.COMMAND4.ENABLED=.f.
奇怪的是,我在appe blan后面加上语句?recno()和wait""后,返回的记录值是-1,appe blan不是自动定位新增加的记录处的吗?为什么会这样?然后我又在这段程序的最后放这两条语句,显示的结果居然是3,我只有一条记录,appe blan后也只有两条记录,为什么指针会到了最后的呢??
问题2:
我的JHSDM和CLZL是组合框来的(其他都是文本框),我在输入CLDM的数据后,经过一段在valid的验证代码如下:
local r
r=recno()
cldm1=ALLTRIM(this.value)
if len(alltrim(this.value))=10
loca for alltrim(cailiao.cldm)==alltrim(this.value)
if not eof()
=messagebox("已经有此材料代码,请从新输入材料代码!",48+0+0,"警告")
return 0
else
go r
repl cailiao.cldm with cldm1
retu .t.
endi
else
=messagebox("请输入十位的材料代码!",48+0+0,"警告")
retu 0
endi
除了cldm文本框外,其他的文本框和组合框都用controlsource绑定了数据表的字段。
到go r处出错,原因是问题1,但是在我输入cldm的时候,JHSDM和CLZL是无效的!为什么会这样??我明明把它们的enabled至1了的啊!
...全文
相关推荐
牛客 – 奇怪的背包问题增加了(贪心)
【奇怪的背包问题增加了(贪心)】是一个典型的动态规划或贪心算法问题,来源于牛客网的在线编程挑战。该题目要求解决一个背包问题,但具有一定的特殊性,适合用贪心策略来解决。
奇怪的回车换行问题
问题出现在,当表单包含回车换行时,浏览器在发送请求时对回车换行的编码处理不一致。
贪财虫(奇怪的游戏增加了)
又又是一个奇奇怪怪的游戏,玩贪吃蛇的时候想到的。。。
什么是奇怪的数列以及学习了解奇怪的数列的意义是什么
例如,在研究某些奇怪数列的过程中,数学家可能会遇到全新的数论问题或者组合数学中的未解之谜,这些问题的解决不仅能够丰富数学理论体系,还可能催生出新的数学分支。#### 2.
founder的字vb4两个的组合,会产生什么奇怪的问题?开发的过程都需要帮助
标题中的“founder的字vb4两个的组合”可能指的是在编程过程中,使用Founder(方正)字库的VB4版本遇到了某种特定的字符组合问题。


