如何引用求和的条件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何引用求和的条件

共有2333人关注过本帖树形打印复制链接主题：如何引用求和的条件

zhangchi96

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：553 积分：5016 威望：0 精华：0 注册：2012/2/11 13:27:00

如何引用求和的条件 发帖心情

Post By：2016/1/26 19:12:00 [只看该作者]

Dim sx1 As WinForm.ComboBox = e.Form.Controls("筛选1")
Dim sx2 As WinForm.ComboBox = e.Form.Controls("筛选2")
Dim sx3 As WinForm.ComboBox = e.Form.Controls("筛选3")

Dim 筛选项目求和 As Double = 0

If sx2.text = "大于" Then
       Filter = " " & sx1.text & " > '" & sx3.text & "' "
ElseIf sx2.text = "小于" Then
      Filter = " " & sx1.text & " < '" & sx3.text & "' "
ElseIf sx2.text = "等于" Then
      Filter = " " & sx1.text & " = '" & sx3.text & "' "
ElseIf sx2.text = "不小于" Then
        Filter = " " & sx1.text & " >= '" & sx3.text & "' "
ElseIf sx2.text = "不大于" Then
        Filter = " " & sx1.text & " <= '" & sx3.text & "' "

end if

                For Each dr As Row In Tables("教职工信息表").Rows
                    If Filter Then
                       筛选项目求和 = 筛选项目求和 + 1

End If
Next

红色的内容应该的本意是当Filter为真时，请教高手如何叙述

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/1/26 21:54:00 [只看该作者]

改成这样

dim f as string = iif(Tables("教职工信息表").filter > "", Tables("教职工信息表").filter, "1=1")
筛选项目求和 = DataTables("教职工信息表").Compute("count(姓名)", "(" & f & ") and " & filter)