Office中国论坛/Access中国论坛

标题: 求助：如何计算重量？？？请高看和帮看看!! [打印本页]

作者: cdwlove 时间: 2005-12-8 00:53
标题: 求助：如何计算重量？？？请高看和帮看看!!
产品编号是文本类型从“0201???-0206???”

Private Sub 长度_mm__AfterUpdate()
Select Case Me![产品编号]
Case Is = "0201???"
   Me![重量] = 3.14 * (Me!外直径] / 2 * Me![直径] / 2) * 0.00000785 * Me![长度]
Case Is = "0202???"
   Me![重量] = 3.14 * (Me!外直径] / 2 * Me![直径] / 2) * 0.00000785 * Me![长度]
Case Is = "0203???"
   Me![重量] = 3.14 * (Me!外直径] / 2 * Me![直径] / 2) * 0.00000785 * Me![长度]
Case Is = "0206???"
   Me![重量] = 3.14 * ((Me![直径] / 2 * Me![直径] / 2)  * Me![长度(mm)]
Case Else
   Me![重量] = Me![高] * Me![宽] * Me![长度] * 0.00000785
End Select
End Sub

请高手帮看看那里错了!!!!应该怎么改？？？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)