求助：如何计算重量!!请高手帮帮看看!!

cdwlove

产品编号是文本类型从“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

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

一点通

有什么错误提示?

ZhenWuJiang

你们好呀我想问你们一下一些问题好吗



我想计算2.0*1250*2500的钢板的重量    例:=2.0*1250*2500*7.85*0.000001=单片的重量

请问一下     1、不锈钢的比重

                    

[此贴子已经被作者于2006-7-26 22:34:35编辑过]