怎样加快此代码运行速度？请支招多谢

zyz218 · 发表于 2005-12-6 19:12:00

If Year(Now()) > Me.lian Then
MsgBox "您输入的年份小于当前年份,系统不支持！"
'-----------------------------------------------------------------------------------------------------------
ElseIf Year(Now()) = Me.lian Then
If Month(Now()) = 1 Then
      one Me
End If
If Month(Now()) = 2 Then
      two Me
End If
If Month(Now()) = 3 Then
      three Me
End If
If Month(Now()) = 4 Then
      four Me
End If
If Month(Now()) = 5 Then
      five Me
End If
If Month(Now()) = 6 Then
      six Me
End If
If Month(Now()) = 7 Then
      seven Me
End If
If Month(Now()) = 8 Then
      eight Me
End If
If Month(Now()) = 9 Then
      nine Me
End If
If Month(Now()) = 10 Then
      ten Me
End If
If Month(Now()) = 11 Then
      eleven Me
End If
If Month(Now()) = 12 Then
      twelve Me
End If

If Me.yue = 1 Then
      i = Nz(DLookup("[库存数量]", "初始库存", "产品名称 ='" & Me.产品名称 & "'"), 0)
      Me.zaiku = i
         jh Me
         sj Me
         cy Me
         ch Me
         zk Me
End If
If Me.yue = 2 Then
      i = Nz(DLookup("[库存数量]", "初始库存", "产品名称 ='" & Me.产品名称 & "'"), 0)
      Me.Z1 = Me.T1 - Me.S1 + Me.C1 + i
      Me.zaiku = Me.Z1
         jh Me
         sj Me
         cy Me
         ch Me
         zk Me
End If
If Me.yue = 3 Then
      i = Nz(DLookup("[库存数量]", "初始库存", "产品名称 ='" & Me.产品名称 & "'"), 0)
      Me.Z1 = Me.T1 - Me.S1 + Me.C1 + i
      Me.Z2 = Me.T2 - Me.S2 + Me.C2 + Me.Z1
      Me.zaiku = Me.Z2
         jh Me
         sj Me
         cy Me
         ch Me
         zk Me
End If
If Me.yue = 4 Then
      i = Nz(DLookup("[库存数量]", "初始库存", "产品名称 ='" & Me.产品名称 & "'"), 0)
      Me.Z1 = Me.T1 - Me.S1 + Me.C1 + i
      Me.Z2 = Me.T2 - Me.S2 + Me.C2 + Me.Z1
      Me.Z3 = Me.T3 - Me.S3 + Me.C3 + Me.Z2
      Me.zaiku = Me.Z3
         jh Me
         sj Me
         cy Me
         ch Me
         zk Me
End If
If Me.yue = 5 Then
      i = Nz(DLookup("[库存数量]", "初始库存", "产品名称 ='" & Me.产品名称 & "'"), 0)
      Me.Z1 = Me.T1 - Me.S1 + Me.C1 + i
      Me.Z2 = Me.T2 - Me.S2 + Me.C2 + Me.Z1
      Me.Z3 = Me.T3 - Me.S3 + Me.C3 + Me.Z2
      Me.Z4 = Me.T4 - Me.S4 + Me.C4 + Me.Z3
      Me.zaiku = Me.Z4
         jh Me
         sj Me
         cy Me
         ch Me
         zk Me
End If
If Me.yue = 6 Then
      i = Nz(DLookup("[库存数量]", "初始库存", "产品名称 ='" & Me.产品名称 & "'"), 0)
      Me.Z1 = Me.T1 - Me.S1 + Me.C1 + i
      Me.Z2 = Me.T2 - Me.S2 + Me.C2 + Me.Z1
      Me.Z3 = Me.T3 - Me.S3 + Me.C3 + Me.Z2
      Me.Z4 = Me.T4 - Me.S4 + Me.C4 + Me.Z3
      Me.Z5 = Me.T5 - Me.S5 + Me.C5 + Me.Z4
      Me.zaiku = Me.Z5
         jh Me
         sj Me
         cy Me
         ch Me
         zk Me
End If
If Me.yue = 7 Then
      i = Nz(DLookup("[库存数量]", "初始库存", "产品名称 ='" & Me.产品名称 & "'"), 0)
      Me.Z1 = Me.T1 - Me.S1 + Me.C1 + i
      Me.Z2 = Me.T2 - Me.S2 + Me.C2 + Me.Z1
      Me.Z3 = Me.T3 - Me.S3 + Me.C3 + Me.Z2
      Me.Z4 = Me.T4 - Me.S4 + Me.C4 + Me.Z3
      Me.Z5 = Me.T5 - Me.S5 + Me.C5 + Me.Z4
      Me.Z6 = Me.T6 - Me.S6 + Me.C6 + Me.Z5
      Me.zaiku = Me.Z6
         jh Me
         sj Me
         cy Me
         ch Me
         zk Me
End If
If Me.yue = 8 Then
      i = Nz(DLookup("[库存数量]", "初始库存", "产品名称 ='" & Me.产品名称 & "'"), 0)
      Me.Z1 = Me.T1 - Me.S1

zyz218 · 发表于 2005-12-6 19:13:00

ElseIf Year(Now()) < Me.lian Then
Me.lian = Me.lian - 1
If Month(Now()) = 1 Then
      one Me
End If
If Month(Now()) = 2 Then
      two Me
End If
If Month(Now()) = 3 Then
      three Me
End If
If Month(Now()) = 4 Then
      four Me
End If
If Month(Now()) = 5 Then
      five Me
End If
If Month(Now()) = 6 Then
      six Me
End If
If Month(Now()) = 7 Then
      seven Me
End If
If Month(Now()) = 8 Then
      eight Me
End If
If Month(Now()) = 9 Then
      nine Me
End If
If Month(Now()) = 10 Then
      ten Me
End If
If Month(Now()) = 11 Then
      eleven Me
End If
If Month(Now()) = 12 Then
      twelve Me
End If

If Me.yue = 1 Then
      i = Nz(DLookup("[库存数量]", "初始库存", "产品名称 ='" & Me.产品名称 & "'"), 0)
      Me.Z1 = Me.T1 - Me.S1 + Me.C1 + i
      Me.Z2 = Me.T2 - Me.S2 + Me.C2 + Me.Z1
      Me.Z3 = Me.T3 - Me.S3 + Me.C3 + Me.Z2
      Me.Z4 = Me.T4 - Me.S4 + Me.C4 + Me.Z3
      Me.Z5 = Me.T5 - Me.S5 + Me.C5 + Me.Z4
      Me.Z6 = Me.T6 - Me.S6 + Me.C6 + Me.Z5
      Me.Z7 = Me.T7 - Me.S7 + Me.C7 + Me.Z6
      Me.Z8 = Me.T8 - Me.S8 + Me.C8 + Me.Z7
      Me.Z9 = Me.T9 - Me.S9 + Me.C9 + Me.Z8
      Me.Z10 = Me.T10 - Me.S10 + Me.C10 + Me.Z9
      Me.Z11 = Me.T11 - Me.S11 + Me.C11 + Me.Z10
      Me.Z12 = Me.T12 - Me.S12 + Me.C12 + Me.Z11
      i = Me.Z12
      Me.lian = Me.lian + 1
      Me.zaiku = i
         jh Me
         sj Me
         cy Me
         ch Me
         zk Me
End If
If Me.yue = 2 Then
      i = Nz(DLookup("[库存数量]", "初始库存", "产品名称 ='" & Me.产品名称 & "'"), 0)
      Me.Z1 = Me.T1 - Me.S1 + Me.C1 + i
      Me.Z2 = Me.T2 - Me.S2 + Me.C2 + Me.Z1
      Me.Z3 = Me.T3 - Me.S3 + Me.C3 + Me.Z2
      Me.Z4 = Me.T4 - Me.S4 + Me.C4 + Me.Z3
      Me.Z5 = Me.T5 - Me.S5 + Me.C5 + Me.Z4
      Me.Z6 = Me.T6 - Me.S6 + Me.C6 + Me.Z5
      Me.Z7 = Me.T7 - Me.S7 + Me.C7 + Me.Z6
      Me.Z8 = Me.T8 - Me.S8 + Me.C8 + Me.Z7
      Me.Z9 = Me.T9 - Me.S9 + Me.C9 + Me.Z8
      Me.Z10 = Me.T10 - Me.S10 + Me.C10 + Me.Z9
      Me.Z11 = Me.T11 - Me.S11 + Me.C11 + Me.Z10
      Me.Z12 = Me.T12 - Me.S12 + Me.C12 + Me.Z11
      i = Me.Z12
      Me.lian = Me.lian + 1
         xiaoyu Me
      Me.Z1 = Me.T1 - Me.S1 + Me.C1 + i
      Me.zaiku = Me.Z1
         jh Me
         sj Me
         cy Me
         ch Me
         zk Me
End If
If Me.yue = 3 Then
      i = Nz(DLookup("[库存数量]", "初始库存", "产品名称 ='" & Me.产品名称 & "'"), 0)
      Me.Z1 = Me.T1 - Me.S1 + Me.C1 + i
      Me.Z2 = Me.T2 - Me.S2 + Me.C2 + Me.Z1
      Me.Z3 = Me.T3 - Me.S3 + Me.C3 + Me.Z2
      Me.Z4 = Me.T4 - Me.S4 + Me.C4 + Me.Z3
      Me.Z5 = Me.T5 - Me.S5 + Me.C5 + Me.Z4
      Me.Z6 = Me.T6 - Me.S6 + Me.C6 + Me.Z5
      Me.Z7 = Me.T7 - Me.S7 + Me.C7 + Me.Z6
      Me.Z8 = Me.T8 - Me.S8 + Me.C8 + Me.Z7
      Me.Z9 = Me.T9 - Me.S9 + Me.C9 + Me.Z8
      Me.Z10 = Me.T10 - Me.S10 + Me.C10 + Me.Z9
      Me.Z11 = Me.T11 - Me.S11 + Me.C11 + Me.Z10
      Me.Z12 = Me.T12 - Me.S12 + Me.C12 + Me.Z11
      i = Me.Z12
      Me.lian = Me.lian + 1
         xiaoyu Me
      Me.Z1 = Me.T1 - Me.S1 + Me.C1 + i
      Me.Z2 = Me.T2 - Me.S2 + Me.C2 + Me.Z1
      Me.zaiku = Me.Z2
         jh Me
         sj Me
         cy Me
         ch Me
         zk Me
End If
If Me.yue = 4 Then
      i = Nz(DLookup("[库存数量]", "初始库存", "产品名称 ='" & Me.产品名称 & "'"), 0)
      Me.Z1 = Me.T1 - Me.S1 + Me.C1 + i
      Me.Z2 = Me.T2 - Me.S2 + Me.C2 + Me.Z1
      Me.Z3 = Me.T3 - Me.S3 + Me.C3 + Me.Z2

zyz218 · 发表于 2005-12-6 19:15:00

Me.lian与Me.yue ：

Private Sub ReportHeader_Print(Cancel As Integer, PrintCount As Integer)
Dim Message, title, Default, yearv As Integer, monthv As Integer
Message = "请输入年份" ' 设置提示信息。
title = "InputBox 年份" ' 设置标题。
Default = "" ' 设置缺省值。
yearv = InputBox(Message, title, Default) ' 显示信息、标题及缺省值。
Me.lian = yearv

Message = "请输入月份" ' 设置提示信息。
title = "InputBox 月份" ' 设置标题。
Default = "" ' 设置缺省值。
monthv = InputBox(Message, title, Default) ' 显示信息、标题及缺省值。
Me.yue = monthv
End Sub

wwwwa · 发表于 2005-12-6 19:16:00

用SELECT　CASE　代替IF　END　IF试试。

zyz218 · 发表于 2005-12-6 19:52:00

试了一下都是要25秒！！！！！！！！！！！！！！！！

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[其它] 怎样加快此代码运行速度？请支招多谢

群介绍
主题无相 (随机显示版	同地区群块其他地区)