为什么源查询改变，子窗体却未改变。

williamwangc

我用DAO.querydef.sq命令改变了查询A查询标准，使之基于查询A的汇总查询B的值发生了改变，但不不知为何基于查询B的窗体C在查询B改变后窗体C未改变。

roych

同时更新了窗体的RowSource没有（Requery）？

williamwangc

form.requery
弄过了。晚饭后把代码发上来。

williamwangc

1. Dim qr As DAO.QueryDef
   
2. Dim str_before As String
   
3. Dim str_add As String
   
4. Dim str_after As String
   
5. str_before = "SELECT 费用类投入月度发生.发生月度, 费用类投入年度预算.大类别, 费用类投入年度预算.小类别, 费用类投入年度预算.项目明细, 费用类投入月度预算.月度预算（万元）, 费用类投入月度发生.月度发生额（万元）, [费用类投入年度预算]![年初预算(万元)]+[费用类投入年度预算]![年中预算调整额(万元)] AS [年度总预算(万元)], [月度发生额（万元）]-[月度预算（万元）] AS [当月预算偏差(万元)], Round([月度发生额（万元）]/[月度预算（万元）],4) AS 当月预算发生率, Round([月度发生额（万元）]/[年度总预算(万元)],4) AS 年度预算发生比率 FROM (费用类投入年度预算 INNER JOIN 费用类投入月度发生 ON 费用类投入年度预算.项目明细=费用类投入月度发生.项目明细) INNER JOIN 费用类投入月度预算 ON (费用类投入月度发生.项目明细=费用类投入月度预算.项目明细) AND (费用类投入月度发生.发生月度=费用类投入月度预算.计划月度)"
   
6. str_add = " WHERE 费用类投入月度发生.发生月度 BETWEEN 1 AND " & Me.cmb月.Value
   
7. str_after = str_before & str_add
   
8. Set qr = CurrentDb.QueryDefs("费用类投入预算发生总计数据来源")
   
9. qr.SQL = str_after
   
10. Me.Child11.Form.Requery

复制代码

williamwangc

代码都没问题啊。

roych

str_before = "SELECT 费用类投入月度发生.发生月度, 费用类投入年度预算.大类别, 费用类投入年度预算.小类别, 费用类投入年度预算.项目明细, 费用类投入月度预算.月度预算（万元）, 费用类投入月度发生.月度发生额（万元）, [费用类投入年度预算]![年初预算(万元)]+[费用类投入年度预算]![年中预算调整额(万元)] AS [年度总预算(万元)], [月度发生额（万元）]-[月度预算（万元）] AS [当月预算偏差(万元)], Round([月度发生额（万元）]/[月度预算（万元）],4) AS 当月预算发生率, Round([月度发生额（万元）]/[年度总预算(万元)],4) AS 年度预算发生比率 FROM (费用类投入年度预算 INNER JOIN 费用类投入月度发生 ON 费用类投入年度预算.项目明细=费用类投入月度发生.项目明细) INNER JOIN 费用类投入月度预算 ON (费用类投入月度发生.项目明细=费用类投入月度预算.项目明细) AND (费用类投入月度发生.发生月度=费用类投入月度预算.计划月度)"
注意粗体部分。。。应当加方括号。

williamwangc

但我想应该不影响的，因为查询已经变了。但它的窗体没变化。