[求助]在线斑竹给个面子进来解决问题。

詩意柔情

我又不是男孩,當然女朋友啦!!   

WTM1

55555555555555

Roadbeg

以下是引用詩意柔情在2003-2-20 15:25:00的发言：
我又不是男孩,當然女朋友啦!!   

如果把 "我又不是男孩"去掉的话,就比较清楚了.

默然

和楼上的同感。

詩意柔情

你們都這么說,難怪笛子移情別戀了!  

zspzjb

http://www.office-cn.net/forum.php?mod=viewthread&tid=32117

数据库 地址

这个是最简单的了.

[此贴子已经被作者于2005-9-20 16:22:41编辑过]

zhengjialon

zspzjb：        你能不能把你的问题简化一下，比如说只要懂了某一个简单的例子，你就可以举一反三做好你的项目，你可以举一个简单的例子放上来，这样大家不用分析你的业务规则，只要解决问题就行了，这样会很快解决，也不会让大家一看到你的数据库就觉的头大，没法下手。

kunlun

是呀。。。本来上午我还想做，，只是一听他说他的要求，我就退了。实在是头疼，不敢做了

sgrshh29

整体来说.......[em06][em06][em06]。 财务部这个窗体，主窗体里，几个文本框都绑定到表达式了，它自己套住自己，这数据如何存入财务部这个表中？不明白。理论上应该绑定到财务部的字段上，然后用代码计算。下面三句供你参考Private Sub 本年累计完成_GotFocus()

本年累计完成 = DLookup("Sum(nz([上月实际],0)) ", "财务部", "费用类别 ='" & Me!费用类别 & "'")

End SubPrivate Sub 本年预算_GotFocus()

本年预算 = DLookup("nz(本年预算) ", "财务部", "费用类别 ='" & Me![费用类别] & "'")

End SubPrivate Sub 差异额_GotFocus()

差异额 = Nz(上月实际, 0) - DLookup("nz(本月预算,0)", "财务部", "month([开始日期])=" & Month([开始日期]) - 1)

End Sub

至于子窗体，无话可说，起什么作用，实在看不出来有什么.......。

zspzjb

子窗体是另外有用的,是实际发生费用时填的.主窗体和子窗体不在一起填写.主窗体是预算,子窗体是实际发生额.在同一个月内,主窗体的上月实际=子窗体的本月累计  字段值.这个公式怎么写.

Private Sub 上月实际_GotFocus()

上月实际 = DLookup("Sum(nz([本月累计],0)) ", "财务部执行预算", "费用类别 ='" & Me!费用项目 & "'")

End Sub

这样写吗?我试了一下,主要是时间没有设条件,月份不一样.上面的三个都好了.非常感谢.

因为我不会写代码,所以值都是在数据来源里写的,在查询时再想办法.呵呵!悲哀! 从现在开始我一定学写代码.非常感谢!

也希望不会写代码的同志来看看,以此为鉴!



在此一问:

子表里的本月预算能否这样写:

Private Sub 本月预算_GotFocus()

本月预算 = DLookup("nz(本月预算) ", "财务部", "费用项目 ='" & !费用类别 & "'"_

& " AND 填表日期 =#" & between [开始日期]　And [截止日期] & "#")

End Sub

[此贴子已经被作者于2005-9-20 18:12:30编辑过]