以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何判断菜单的日期组合框为空（已解决）  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25840)
--  作者：yyzlxc
--  发布时间：2012/11/18 12:32:00
--  [求助]如何判断菜单的日期组合框为空（已解决）
一段命令窗口的代码，判断菜单的日期账款为空，执行后出错，应如何修改，请各位老师指教，谢谢！！

Dim ny As Date
With RibbonTabs("功能区1")("功能组1")
    ny = .Items("年月").Text
End With
If ny Is Nothing Then
    MessageBox.Show("空")
Else
    MessageBox.Show("非空")
End If


图片点击可在新窗口打开查看此主题相关图片如下：t.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2012-11-18 16:11:52编辑过]
--  作者：y2287958
--  发布时间：2012/11/18 15:40:00
--  
试试这个
Dim ny As String =  RibbonTabs("功能区1")("功能组1")("年月").value
If ny = ""
    MessageBox.Show("空")
Else
    MessageBox.Show("非空")
End If
[此贴子已经被作者于2012-11-18 15:40:23编辑过]
--  作者：yyzlxc
--  发布时间：2012/11/18 16:14:00
--  
谢谢y2287958的回复，以下代码可以达到目的。

With RibbonTabs("功能区1").Groups("功能组1").Items("年月")
    If .Text = "" Then
        MessageBox.Show("空")
    Else
        MessageBox.Show("非空")
    End If
End With