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编辑过]