|
本帖最后由 todaynew 于 2011-3-19 17:07 编辑
方法一:
1、在子窗体页脚中拖入一个文本框,命名为:合计;
2、在设计视图状态下,于该文本框中写:=sum(iif([Status]=true,[Demand],0))
3、在主窗体上拖入一个文本框,也命名为:合计;
4、在设计视图状态下,于该文本框中写:=forms!主窗体名称!子窗体控件名称.form!合计
方法二:
1、在主窗体上拖入一个文本框,也命名为:合计;
2、在设计视图状态下,于该文本框中写:=Dsum("Demand","表或查询的名称","Status=-1")
方法三:
1、在主窗体上拖入一个文本框,也命名为:合计;
2、在子窗体的Status控件的更新后事件中写:
dim frm as form
dim ctls as controls
dim i as long,n as long
set frm=me.子窗体控件名称.form
set ctls=me.Parent.form.controls
ctls("合计").value=0
n=frm.seltop
for i=1 to frm.RecordsetClone.RecordCount
frm.seltop=i
if me.Status.value=true then
ctls("合计").value=ctls("合计").value+me.Demand.value
end if
next
frm.seltop=n
|
|