主题：统计 代码

请老师帮忙分析统计代码那里错误  提示：语法错误:“日期”运算符后缺少操作数

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目15.table

运行无任何问题,操作哪里会出现你所说的问题?

当我选择好部门，再选择本月，点统计

 逻辑上有错误，点击统计的时候，应该是根据输入的内容统计。

 

 点击半年、一年的时候，另外统计，不要放在统计按钮里做。

 

 如果要做也行，点击半年、一年的时候，自动给开始日期、结束日期赋值即可。

If zm.Value="请选择部门"  Then
    MessageBox.show("您没有选择部门啊,怎么统计?")
Else
    Dim Filter As String
    With e.Form.Controls("姓名")
        If .Value IsNot Nothing Then
            Filter = "姓名 = '" & .Value & "'"
        End If
    End With
    With e.Form.Controls("部门")
        If .Value IsNot Nothing Then
            If Filter > "" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & "部门 = '" & .Value & "'"
        End If
    End With
   
    With e.Form.Controls("stardate")
        If .Value IsNot Nothing Then
            If Filter >"" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & "日期 >= #" & .Value & "#"
        End If
    End With
    With e.Form.Controls("enddate")
        If .Value IsNot Nothing Then
            If Filter >"" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & "日期 <= #" & .Value & "#"
        End If
    End With

    If Filter > "" Then
        Tables("表a").Filter = Filter
    End If
End If

理解了、试试看。有问题再请教

你看看你拼接的条件,自然就知道问题在哪里了.

楼主其实有自动计算开始日期和结束日期,只是赋值的时候没有正确赋值,单纯只是赋值月份变量了,也没有添加AND