文本框判断是否为空
if GraphSetup_TextBox3.Text = "" or GraphSetup_TextBox1.Text = "" then
MsgBox "信息填写不完整"
Exit Sub
End if
对象是否为空
Set Report1 = Grid.GetReportData
if Report1 is NoThing Then
Exit Sub
End if
变量是否为空只能是字符串类型
value <> "" 这样判断