共8 条记录, 每页显示 10 条, 页签: [1]

标题：代码求助

1楼

bm 发表于：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编辑过]

2楼

程兴刚 发表于：2011/12/23 23:49:00

将CurrentTable换成tables("某某表")试试！

3楼

bm 发表于：2011/12/24

版主。这是菜单中的代码。所有表都要应用的。

此主题相关图片如下：截图80.jpg

[此贴子已经被作者于2011-12-24 0:02:50编辑过]

4楼

bm 发表于：2011/12/24 0:10:00

Syscmd.Filter.Equal()

5楼

程兴刚 发表于：2011/12/24 0:19:00

是的，我说错了，这样改一下试试：

If t.Current Is Nothing or t.rows.Count < 1 Then
Return
End If

6楼

bm 发表于：2011/12/24 10:25:00

帮忙再看看吧

7楼

blackzhu 发表于：2011/12/24 10:59:00

呵呵,为什么不用系统菜单改呢?这样不太会出错啊.

8楼

czy 发表于：2011/12/24 11:14:00

改成这样试试

If t Is Nothing Then
Return
End If

或

if t.Rows.Count > 0 then

执行代码

end if

共8 条记录, 每页显示 10 条, 页签: [1]