请教：一个看似简单的查询问题

RickyZjw-3721

如附件,我想设计一个查询把表"ExpnDTL10101_Jul"以A20和F20开头的字段值加起来作为一个新字段TtlYrFC,把以P20开头的字段值加起来作为字段TtlYrPP,也考虑到了动态字段名的选取问题,在窗体"TabTtl_Query"里的按钮"Command0"包含了查询的VBA代码,经过多次调试总执行不成功. 烦请各位高手帮忙看一下问题出在哪里?谢谢!

asklove

笨办法：一个一个相加，不用sum()
            With rs
                .Open "ExpnDTL10101_Jul", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
                For a = 0 To .Fields.Count - 1
                    Bj = Left(.Fields(a).Name, 3)
                    If Bj = "A20" Or Bj = "F20" Or Bj = "P20" Then
                        If Bj = "P20" Then
                            flds1 = flds1 & "+" & "[" & .Fields(a).Name & "]"
                        Else
                            flds = flds & "+" & "[" & .Fields(a).Name & "]"
                        End If
                    End If
                Next
                .Close
            End With
            
            flds = Right(flds, Len(flds) - 1)
            flds1 = Right(flds1, Len(flds1) - 1)
            striSQL = "SELECT acct,AcctDescription ," & flds & " AS TtlYrFC, " & flds1 & " AS TtlYrPP FROM ExpnDTL10101_Jul "
            Set qdf = CurrentDb.QueryDefs("ExpnDtlQry")
            qdf.Sql = striSQL
            qdf.Close
            Set qdf = Nothing
            DoCmd.OpenQuery "ExpnDtlQry"

asklove

不好意思，看一下你的表，好像结果不正确 ：( 郁闷

加上Nz()结果好像正确

If Bj = "A20" Or Bj = "F20" Or Bj = "P20" Then
            If Bj = "P20" Then
               flds1 = flds1 & "+ Nz([" & .Fields(a).Name & "],0)"
            Else
               flds = flds & "+ Nz([" & .Fields(a).Name & "],0)"
            End If
End If

RickyZjw-3721

太感谢了!其实有时"笨"办法倒是最有效的办法! 我把修改后的代码附上,供感兴趣的其他网友参考.