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
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
end if
[此贴子已经被作者于2018/12/11 18:18:43编辑过]
加好友 
发短信
Post By：2018/12/11 18:18:00 [显示全部帖子]
此主题相关图片如下：微信图片_20181212172427.png