回 帖 发 新 帖 刷新版面

主题:求助:如果满足条件,就能进行,否则不能进行

老师们:有个问题我不会,text1 text2 text3和命令按钮(代码),我想如果text1数字大于1万,就能thisform.text2.value+thisform.text3.value.如果小于1万,命令按钮不能操作。谢谢

回复列表 (共12个回复)

沙发

thisform.text2.value+thisform.text3.value的结果放哪儿呢?

板凳

if thisform.text1.value>10000
xxxx=thisform.text2.value+thisform.text3.value  &&结果给谁了,你知道
else
命令按钮.Enabled =.f.   &&命令按钮的名称你知道。
endif

3 楼

wzxc老师好:数字给text4啦,但用你的这个后,提示找不见命令按钮这个名称。我设的名称叫起伏线
 起伏线.Enabled =.f. 谢谢老师

4 楼

IF thisform.text1.value>10000
    thisform.text4.value=thisform.text2.value+thisform.text3.value
    thisform.起伏线.Enabled = .T.
ELSE 
    thisform.起伏线.Enabled = .F.
ENDIF

5 楼

qjbzjp老师:提示不能识别起伏线这个成员。谢谢老师

6 楼

检查一下,最有可能是命令按键的名字不对,楼主只是将其“Caption”属性改成“起伏线”,但“Name”属性还是Command1,所以应该改成:
thisform.Command1.Enabled = .F.

其次可能是代码放的地方不对了,应该放到最后输入数据文本框的KeyPress事件中:
IF nKeyCode=13   &&判断是否敲了回车键
   4楼代码……
ENDIF

7 楼

哦,老师,不行的,将其“Caption”属性改成“起伏线”,但“Name”属性还是Command1,所以应该改成:thisform.Command1.Enabled = .F.提示对象名无效。放到最后输入数据文本框的KeyPress事件中也不成。目前按老师们所教,能运算,但同时提示不能识别起伏线成员.

8 楼

注意对象的引用层次问题。
在代码编辑器里,右键,选“插入对象”,在列表框里找到你要找的控件,选中后,自动插入引用代码。

9 楼


IF Thisform.text1.value>10000
thisform.text4.value=thisform.text2.value+thisform.text3.value
    thisform.command1.Enabled= .T.    
ELSE 
    thisform.command1.Enabled=.f.
ENDIF

10 楼

zjp老师command1=起伏线的指教,能运行。但为什么起伏线成灰色的,不可用呢。除非关了程序。谢谢老师们给予指教。

我来回复

您尚未登录,请登录后再回复。点此登录或注册