Office中国论坛/Access中国论坛

标题: 求助：如何计算重量？？？ [打印本页]

作者: cdwlove 时间: 2005-12-8 00:56
标题: 求助：如何计算重量？？？
产品编号是文本类型从“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

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

作者: leoyan76 时间: 2006-2-17 20:12
Case Is = "0201???"
應該是這個問題

作者: zhufree 时间: 2006-2-17 23:28
???是代表啥意思

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