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

 

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

 

 

 

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

改成

 

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

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