- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 代码求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15404)
-- 发布时间：2011/12/23 23:34:00
-- 代码求助
Dim m As RibbonMenu.MenuButton = e.MenuButton
Dim t As Table = CurrentTable
Dim c As Col = t.Cols(t.ColSel)
If t.Current Is Nothing Then
Return
End If
If t.Current.IsNull(t.ColSel) Then
m.Items("等于").Text = "等于空白"
Else
m.Items("等于").Text = "等于" & t.Text
End If
If t.Current.IsNull(t.ColSel) Then
m.Items("不等于").Text = "不等于空白"
Else
m.Items("不等于").Text = "不等于" & t.Text
End If
If c.IsDate Then
RibbonTabs("我的工作")("工作组")("Filter")("时段筛选").Enabled = True
Else
RibbonTabs("我的工作")("工作组")("Filter")("时段筛选").Enabled = False
End If
[此贴子已经被作者于2011-12-23 23:41:57编辑过]
-- 发布时间：2011/12/23 23:49:00
--
将CurrentTable换成tables("某某表")试试！
-- 发布时间：2011/12/24
-- 菜单中的代码。
版主。这是菜单中的代码。所有表都要应用的。
此主题相关图片如下：截图80.jpg
[此贴子已经被作者于2011-12-24 0:02:50编辑过]
-- 发布时间：2011/12/24 0:10:00
-- 按钮代码
Syscmd.Filter.Equal()
-- 发布时间：2011/12/24 0:19:00
--
是的，我说错了，这样改一下试试：
If t.Current Is Nothing or t.rows.Count < 1 Then
Return
End If
-- 发布时间：2011/12/24 10:25:00
-- 还是报错
帮忙再看看吧
-- 发布时间：2011/12/24 10:59:00
--
呵呵,为什么不用系统菜单改呢?这样不太会出错啊.
-- 发布时间：2011/12/24 11:14:00
--
改成这样试试
If t Is Nothing Then
Return
End If
或
if t.Rows.Count > 0 then
执行代码
end if