以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何用菜单筛选不同年度同一月份的数据?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15100)

--  作者:rcsy001
--  发布时间:2011/12/13 10:59:00
--  如何用菜单筛选不同年度同一月份的数据?
如何用菜单筛选不同年度同一月份的数据?

狐表提供的快捷菜单,指定时段,相同时段的菜单,都是指同年,同季,同月的筛选。
请教:如何增加一个菜单项,用于筛选不同年度同季,同月的数据。

--  作者:狐狸爸爸
--  发布时间:2011/12/13 11:10:00
--  

不同年的同月:

 

Dim dt As Date =  Tables("订单").current("日期")
Dim m As Integer = dt.month
Tables("订单").Filter = " SubString(Convert([日期],\'System.String\'),6,IIF(SubString(Convert([日期],\'System.String\'),7,1) In (\'-\',\'/\'),1,2)) = \'" & m & "\'"

 

参考:

http://www.foxtable.com/help/topics/1285.htm

 


--  作者:rcsy001
--  发布时间:2011/12/13 11:39:00
--  

如何取得当前表,当前列
如何判断当前列是否是日期列
然后才能用以上代码
Tables("订单").Filter 这个如何确定为当前表的Filter

= " SubString(Convert([日期],\'System.String\'),6,IIF(SubString(Convert([日期],\'System.String\'),7,1) In (\'-\',\'/\'),1,2)) = \'" & m & "\'"

--  作者:狐狸爸爸
--  发布时间:2011/12/13 11:42:00
--  

CurrentTable当前表。

 

With CurrentTable

   Dim c As  Col 

    c =  .Cols(.ColSel) \' 返回当前列

End with


--  作者:rcsy001
--  发布时间:2011/12/13 15:11:00
--  
同季度的表达式如何写呢?
--  作者:狐狸爸爸
--  发布时间:2011/12/13 16:06:00
--  
没有办法