以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  时间列提取年 月的筛选问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114402)
--  作者：kinglw110
--  发布时间：2018/2/5 14:57:00
--  时间列提取年 月的筛选问题
2个下拉列表框 分别对应年 月， 选好年月后  对设置按钮 进行下面代码的设定   
调用的目标发生了异常。
语法错误:“[接收日期]”运算符后缺少操作数。



Dim nf As WinForm.ComboBox =Forms("设变-左侧导航栏").Controls("ComboBox1")
Dim yf As WinForm.ComboBox =Forms("设变-左侧导航栏").Controls("ComboBox2")
Dim nr As String =nf.text
Dim y As String =yf.text

Dim Page As WinForm.TopicPage
If nr > "" And nr <>"显示全部" And y > "" AndAlso y <>"显示全部" Then
page = forms("设变-左侧导航栏").Controls("TopicBar1").Pages("设计")
For Each nm As String In DataTables("基本设定").GetValues("名称","类别=\'设计\' and 显隐=false ")
    Dim cnt As Integer = DataTables("数据更改统计表").Compute("count([_Identify])","修改人= \'" & nm & "\' and  year[接收日期]= \'" & nr & "\' and  month[接收日期]=\'" & y & "\'")
    \'通过主健来统计数量
If cnt>0
Dim link As WinForm.TopicLink = Page.Links.Add(nm,nm)
    link.text=link.text & "    " & "(" & cnt & ")" & "次"
End If
Next
End If
--  作者：有点甜
--  发布时间：2018/2/5 15:03:00
--  

没有year和month函数，如果要计算，参考这里的设计

 

http://www.foxtable.com/webhelp/scr/2720.htm