计算平均值

apeng

非常感谢各位老师的回答,谢谢谢谢我只所以这样设计表也是被迫的,因为如果按照LucasLynn的设计方法,每天的数据量将有10万行,并且需要转换数据,原始数据的格式就是我表中的格式,所以才考虑这样,无论如何,还是感谢各位

LucasLynn

以下是引用apeng在2005-10-12 14:01:00的发言：



非常感谢各位老师的回答,谢谢谢谢

我只所以这样设计表也是被迫的,因为如果按照LucasLynn的设计方法,每天的数据量将有10万行,并且需要转换数据,原始数据的格式就是我表中的格式,所以才考虑这样,无论如何,还是感谢各位

你有这么多条记录，你现在要计算某段的平均值，那到底是对一条记录，还是对多条记录，还是对整个表？

apeng

wanshan的方法得到的结果是我想要的

LucasLynn

以下是引用apeng在2005-10-12 15:07:00的发言：

wanshan的方法得到的结果是我想要的

72个字段……

不过能解决就好。[em05]

[此贴子已经被作者于2005-10-13 9:30:50编辑过]

zhuyiwen

<DIV class=quote>以下是引用apeng在2005-10-10 20:04:00的发言：







Private Sub ChangeQry()

   Dim qdfTemp As QueryDef

    Dim st As String

    Dim en As String

    Dim c As Integer

    Dim k As Integer

    Dim x As Integer

    Dim sql As String

    Dim ss As String

   

    If Not (IsNull(s) Or IsNull(e)) Then

   

        sql = "SELECT ID, 字段1"

        c = 1

        

        If e > s Then

            st = s

            en = e

        Else

            st = e

            en = s

        End If

        

        

        ss = "[" & st & "]"

        sql = sql & ", " & ss

            Do While st < en

                k = Val(Mid(st, 1, 2))

                x = Val(Mid(st, 4, 2)) + 15

               

                k = k + x \ 60

                x = x Mod 60

                st = Format(k, "00") & ":" & Format(x, "00")

                c = c + 1

                ss = ss & " + [" & st & "]"

                sql = sql & ", " & " [" & st & "]"

                'Debug.Print st, c, ss, sql

            Loop

        sql = sql & ", " & "(" & ss & ")/" & c & " AS 平均收视率 FROM 报告备份;"

        'Debug.Print sql

        Set qdfTemp = CurrentDb.QueryDefs("查询1")

        qdfTemp.sql = sql

        

        Me.Child6.SourceObject = ""

        Me.Child6.SourceObject = "查询.查询1"

   

    End If

End Sub

[此贴子已经被作者于2005-10-26 13:37:30编辑过]

apeng

谢谢朱总出手,谢谢,学习中

chenaisi

我也想知道