关于数据拆分，计算问题

winner

例子中的表1是每箱产品的规格，现在我想在窗口输入产品号，箱数，就能计算出总重量。

如:输入产品号：1至5

      (规格分别为：1.6ml*6，15ml*400，15ml*400，30ml*300，760ml*12)

      输入箱数为：40

      则总重量显示：1.6*6*40+15*400*40+15*400*40+30*300*40+760*12*40的和

  如何实现这一功能呢？我觉得关键是拆分规格中数字，单位的问题（如果表1是分为3个子段：每瓶重量，单位，每箱瓶数，这样装数据就容易，但现在不能更改表），请大家多多指教。

比较急，在线等待，谢谢！

Dragxixi

我也不会,帮顶!

海狸先生

你的单位各不同，最后的重量是 ml还是g还是l，

还有 ml+g 这个怎么加啊

一点通

给你一个提示:

先用replace将ml变为空字符,

然后用Eval计算字段,再乘箱数,

最后用sum类计总数

海狸先生

Private Sub Command6_Click()
Dim strSql As String
strSql = "SELECT sum(iif(instr(规格,'ml')>0,eval(replace(规格,'ml',''))," & _
           "iif(instr(规格,'l')>0,eval(replace(规格,'l','*1000')),eval(replace(规格,'g','')))))" & _
           "From [1] Where clng(编号) Between " & Text0 & " and " & Text2
Text4 = CurrentProject.Connection.Execute(strSql).GetString * Text9

End Sub

winner

表中的只是示例数据，当正式计算时，会有：编码1－5单位为ml，编码6－10单位为g，这些代号只有使用该数据库的人知道

海狸先生

你用我的代码就可以搞定了

一点通

如果知道非数字的具体内容好处理一点,如果是乱七八糟的就难办了,所以不管做什么事都要规范化

winner

谢谢，可以运行了。

如果从一开始就规范化那当然好啦，最惨就是一定要拿以前的数据源，又不能更改表的设计，以前我都是在EXCEL里做完再导入的，所以数据不是实时的，现在就可以实时了!