- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口中动态统计显示行的数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70834)
-- 发布时间：2015/6/29 23:42:00
-- [求助]窗口中动态统计显示行的数据
[求助]窗口中动态统计显示行的数据，请老师帮忙。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:清洗.foxdb |
-- 发布时间：2015/6/30 7:53:00
--
\' ------动态模糊筛选的代码------
Dim T As String = e.form.Controls("TextBox1").Value \'定义控件的值
Dim Filter As String \'定义筛选
For Each dc As Col In Tables("清洗管理").Cols \'遍历表的所有列
If dc.DataCol.IsDate OrElse dc.DataCol.IsBoolean OrElse dc.DataCol.IsNumeric Then \'如果是时间列,逻辑列,数值列
Continue For \'排除
End If
If Filter > "" Then
Filter = Filter & " Or "
End If
Filter = Filter & "[" & dc.Name & "] Like \'*" & T & "*\'" \'根据控件值迷糊筛选
Next
Tables("清洗管理").Filter = Filter \'将数据筛选出来
Dim 总套数 As WinForm.TextBox = e.Form.Controls("总套数")
Dim 总行数 As WinForm.TextBox = e.Form.Controls("总行数")
总套数.Text = Tables("清洗管理").Compute("Sum(套数)")
总行数.Text = Tables("清洗管理").Compute("Count(_Identify)")
-- 发布时间：2015/6/30 8:51:00
--
我的意思是能够动态实时的显示统计数据，而不是把统计显示的代码放到某一个按钮里。请老师们帮忙。
[此贴子已经被作者于2015/6/30 9:38:40编辑过]
-- 发布时间：2015/6/30 9:39:00
--
请老师们帮忙。
-- 发布时间：2015/6/30 9:40:00
--
写到删除行事件 和DataColChanged事件去
-- 发布时间：2015/6/30 9:45:00
--
不行，不可以。我的意思是在窗口中能动态显示统计所绑定表的统计数据。
[此贴子已经被作者于2015/6/30 9:46:07编辑过]
-- 发布时间：2015/6/30 9:59:00
--
你把统计代码放在各个事件里面，就是实时统计了啊。
比如，放在datacolchanged事件，修改值的时候统计一次；比如，放在afterFilter事件，筛选以后，又统计一次。