bigjohnny 发表于 2011-10-19 13:37
Private Sub Form_Current()
dim rr as string
select count(*) from [客户消费记录 查询2]=rrr
Private Sub Form_Current()
dim ctrls as controls
set ctrls=Me.Parent.controls
ctrls("text49").value = DSum("手工", "客户消费记录 查询2")
ctrls("text51").value = DSum("产品", "客户消费记录 查询2")
ctrls("text55").value = DSum("美容卡", "客户消费记录 查询2")
ctrls("合计").value=nz(ctrls("text49").value,0)+nz(ctrls("text51").value,0)+nz(ctrls("text55").value,0)
End Sub
Private Sub Form_Current()
dim rr as string
select count(*) from [客户消费记录 查询2]=rrr
if rrr=0
Me.Parent("text49") ="0"
Me.Parent("text51") = "0"
Me.Parent("text55") = "0"
eles