控件上的实时统计问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 控件上的实时统计问题

共有2587人关注过本帖树形打印复制链接主题：控件上的实时统计问题

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

控件上的实时统计问题 发帖心情

Post By：2018/12/11 18:18:00 [只看该作者]

datacolchanged事件里面，

If e.DataCol.name = "收款日期" Then

if e.newvalue = nothing

SystemReady = False

SystemReady = true

else

Dim frm As WinForm.Form = Forms("窗口")

frm.controls("label4").text = Tables("表A").compute("count([客户信息])","已收款 like '*付款'") ’当收款日期填上日期后，控件label4不能实时统计

end if

搜索了论坛，用下面这种也不能

If e.DataCol.name = "收款日期" Then

Dim frm As WinForm.Form = Forms("窗口")

If frm.opened and e.newvalue<>nothing Then

frm.controls("label4").text = Tables("表A").compute("count([客户信息])","已收款 like '*付款'") ’当收款日期填上日期后，控件label4不能实时统计

end if

[此贴子已经被作者于2018/12/11 18:18:43编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/12/11 19:49:00 [只看该作者]

Tables("表A").compute("count([客户信息])","已收款 like '%付款'")

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/12/12 15:37:00 [只看该作者]

蓝老师，还是不能。。。。。。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/12 15:41:00 [只看该作者]

你填入日期以后，焦点离开日期输入框控件后，能否统计结果？

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/12/12 15:44:00 [只看该作者]

不能，离开日期列，点击其他列或其他行后，也不统计。

是不是在筛选的前提下，不能实时统计？因为这个table是筛选出来的数据。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/12 15:45:00 [只看该作者]

做个例子发上来测试，代码没问题。

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/12/12 16:54:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

甜老师，来了，在表C，收款对账查询窗口。

谢谢

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/12 17:13:00 [只看该作者]

改成

If e.DataCol.name = "收款日期" Then
    Dim frm As WinForm.Form = Forms("收款对账查询")
    If frm.opened AndAlso e.newvalue <> Nothing Then
        Dim tb As Table = Tables("表C")
        frm.controls("label2").text = tb.Rows.count()
        frm.controls("label3").text = tb.compute("sum(预付)") + Tables("表C").compute("sum(月价)")
        frm.controls("label4").text = tb.compute("count([客户信息])","收款日期 is not null")
        frm.controls("label5").text = tb.compute("sum(预付)","收款日期 is not null") + tb.compute("sum(月价)","收款日期 is not null")
        frm.controls("label12").text = tb.compute("count([客户信息])","收款日期 is null")
        frm.controls("label13").text = tb.compute("sum(预付)","收款日期 is null") + tb.compute("sum(月价)","收款日期 is null")
    End If
End If

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/12/12 17:25:00 [只看该作者]

此主题相关图片如下：微信图片_20181212172427.png

改了，问题依旧。。。。。。。。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/12 18:28:00 [只看该作者]

代码没问题，你要修改日期列的值，才会重新计算的。

下一主题 >> << 上一主题

主题：控件上的实时统计问题