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
加好友 
发短信
Post By：2018/2/5 14:57:00 [只看该作者]
