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


  共有2509人关注过本帖树形打印复制链接

主题:如何引用求和的条件

帅哥哟,离线,有人找我吗?
zhangchi96
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:555 积分:5037 威望: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)


 回到顶部
帅哥哟,离线,有人找我吗?
zhangchi96
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:555 积分:5037 威望:0 精华:0 注册:2012/2/11 13:27:00
  发帖心情 Post By:2016/1/26 22:43:00 [只看该作者]

直接这样写不行吗?

 

筛选项目求和 = DataTables("教职工信息表").Compute("count(姓名)", filter)


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/27 0:14:00 [只看该作者]

可以,但是如果你的Table是筛选状态,查到的数据会比你看到的要多一些(因为一些被你隐藏了)


 回到顶部
帅哥哟,离线,有人找我吗?
zhangchi96
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:555 积分:5037 威望:0 精华:0 注册:2012/2/11 13:27:00
  发帖心情 Post By:2016/1/29 23:30:00 [只看该作者]

谢谢大红袍老师!


 回到顶部