很简单的txt=“”就提示
目前成都创新互联公司已为千余家的企业提供了网站建设、域名、虚拟主机、网站运营、企业网站设计、丽水网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
If TextBox1.Text ="" Then
MsgBox("不能为空", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "错误提示")
'或者这样
If TextBox1.Text = "" Then '错误提示
ErrorProvider1.SetError(TextBox1, "用户名不能为空")
不知道你说的空是哪种意思?
有两种说法,一种是String.Empty,例如
Dim s As String = String.Empty 等同于 Dim s As String = ""
这种情况下直接If s = "" Then就可以判断是不是空.
还有一种是Nothing,必须要用If IsNothing(s) Then来判断.
vb.NET有时很怪,不同版本,或者不同机器,在操作excel时,判断单元格是否为空时,会出现不同的错误提示。
大多数情况,xlSheet.Cells(1, 1)="" 就可以判断这个单元是否有内容。
但是有时也会有不同的提示。总结不同机器,不同版本,用下面几种来试试单元格是否是空白。
xlSheet.Cells(1, 1)=""
xlSheet.Cells(1, 1).value=""
xlSheet.Cells(1, 1).value.tostring=""
如果上面三个代码都会自动提示错误,请用下面终极模式:)
xlSheet.Cells(1, 1).value = Nothing
一: 利用错误捕获功能判断
Dim ArrayS() As String
Private Sub Command1_Click()
On Error GoTo z
ReDim ArrayS(10)
If UBound(ArrayS) -1 Then
MsgBox "数组不为空"
End If
Exit Sub
z:
MsgBox "数组空"
End Sub
二、 Join方法:
Dim ArrayS() As String
Private Sub Command1_Click()
If (CStr(Join(ArrayS, ""))) = "" Then
MsgBox "为空"
Else
MsgBox "不为空"
End If
End Sub