回 帖 发 新 帖 刷新版面

主题:程序运行时,文本框的空格问题

我做好了一个信息录入表单,发现在运行时,文本框中,有好多空格,删都删不完,我想写一条语句,判断文本框是否为空,怎么办呢?

还有,如何固定表单的大小呢,让其不能被鼠标拉伸或缩小

回复列表 (共6个回复)

沙发

?IIF(EMPTY(thisform.text1.Value),"空","不空") 

板凳

我把我的问题描述得详细一点吧
判断表单中的txt1、txt2、txt3是否为空,若有其中一个为空,则弹出messagebox("信息不能为空!"),若都不为空,则执行一个修改命令

sele 菜单
use 菜单
append blank
go bottom
replace 荤素 with thisform.combo1.value 菜名 with thisform.txt2.value 单价 with thisform.txt3.value 单位成本 with thisform.txt4.value 描述 with thisform.edt1.value  编号 with thisform.text1.value
USE 菜单

3 楼

IF EMPTY(thisform.text1.Value).or.EMPTY(thisform.text2.Value).or.EMPTY(thisform.text3.Value)
    messagebox("信息不能为空!")
ELSE 
    REPLACE ……
ENDIF 

4 楼

感激不尽

还想请问一下,如何用代码判断某个表单是否运行

主表单在关闭的时候如果子表单在运行,那么主表单和子表单都关闭

5 楼

主表单的 showwindow=2   &&设为顶层表单
子表单的 showwindow=1   &&在顶层表单中

6 楼

[quote]……

还想请问一下,如何用代码判断某个表单是否运行

……[/quote]
[url=http://bbs.pfan.cn/post-221241.html]请楼主参考[/url]

我来回复

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