- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- trim（）用法提示，未将对象引用设置到对象的实例 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61051)
-- 发布时间：2014/12/6 1:30:00
-- trim（）用法提示，未将对象引用设置到对象的实例
Dim str As String
If InputValue(str, "注释内容","请输注释内容,如: \'合格,不合格,通过,不通过\'") Then
str = str.Trim()
If str Is Nothing Then
messagebox.show("请输入内容")
Else
Output.Show(str)
end if
end if
出现输入框后什么都没输入，上述代码提示“未将对象引用设置到对象的实例” 将“str = str.Trim()”去掉后就没事了
请教，我是想既要判断是否输入内容又要避免只输入空格键。
请指导
[此贴子已经被作者于2014-12-6 1:31:14编辑过]
-- 发布时间：2014/12/6 2:38:00
--
Dim str As String
If InputValue(str, "注释内容","请输注释内容,如: \'合格,不合格,通过,不通过\'") Then
If str Is Nothing Then
messagebox.show("请输入内容")
Else
str = str.Trim()
If str="" Then
messagebox.show("请输入内容")
Else
Output.Show(str)
End If
End If
End If
实现空值和纯空格判断！
-- 发布时间：2014/12/6 14:57:00
--
谢谢