代码简化问题

cjls2000

'实例代码如下：


'=======================


Dim jlzs, i, j As Variant





jlzs = Me.Recordset.RecordCount





For i = 1 To jlzs





Select Case LB





Case "BAND"


   ZDSL = ZDSL + sl


   ZDFZL = ZDFZL + jz


   ZDFJE = ZDFJE + roundtolarger(zje, 0)


   ZDAVG = roundtolarger((ZDFJE / (ZDSL + 0.0000001)), 2)


Case "CHUBE"


  TGSL = TGSL + sl


  TGFZL = TGFZL + jz


  TGFJE = TGFJE + roundtolarger(zje, 0)


  TGAVG = roundtolarger((TGFJE / (TGSL + 0.0000001)), 2)


Case "COARE"


  TXSL = TXSL + sl


  TXFZL = TXFZL + jz


  TXFJE = TXFJE + roundtolarger(zje, 0)


  TXAVG = roundtolarger((TXFJE / (TXSL + 0.0000001)), 2)


Case "CONDENSER"


  DRSL = DRSL + sl


  DRFZL = DRFZL + jz


  DRFJE = DRFJE + roundtolarger(zje, 0)


  DRAVG = roundtolarger((DRFJE / (DRSL + 0.0000001)), 2)


.................................








End Select





NEXT I





‘roundtolarger   四舍五入





类别众多 这样写太累





有简化的写法吗？


[em06][em06][em06]

fan0217

看不懂

用例子来说明

cjls2000

修改一下 这样应该能 看明白点


'实例代码如下：


'=======================


Dim jlzs, i, j As Variant


jlzs = Me.Recordset.RecordCount


For i = 1 To jlzs


Select Case LB


Case "BAND"


   BANDSL = BANDSL + sl


   BANDFZL = BANDFZL + jz


   BANDFJE = BANDFJE + roundtolarger(zje, 0)


   BANDAVG = roundtolarger((BANDFJE / (BANDSL + 0.0000001)), 2)


Case "CHUBE"


  CHUBESL = CHUBESL + sl


  CHUBEFZL = CHUBEFZL + jz


  CHUBEFJE = CHUBEFJE + roundtolarger(zje, 0)


  CHUBEAVG = roundtolarger((CHUBEFJE / (CHUBESL + 0.0000001)), 2)


Case "COARE"


  COARESL = COARESL + sl


  COAREFZL = COAREFZL + jz


  COAREFJE = COAREFJE + roundtolarger(zje, 0)


  COAREAVG = roundtolarger((COAREFJE / (COARESL + 0.0000001)), 2)


.................................


End Select


NEXT I


‘roundtolarger   四舍五入


类别众多 这样写太累

Trynew

这种情况应该用汇总查询,不需编程.你把数据库放上来,便于解决.