求助：如何计算重量？？？

cdwlove · 发表于 2005-12-8 00:56:00

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

Case Is = "0201???"
應該是這個問題

zhufree · 发表于 2006-2-17 23:28:00

???是代表啥意思

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

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

主题相关群

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

[其它] 求助：如何计算重量？？？

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