Office中国论坛/Access中国论坛

标题: 代码简化问题 [打印本页]

作者: cjls2000 时间: 2006-9-17 23:29
标题: 代码简化问题
'实例代码如下：

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

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 时间: 2006-9-18 02:57
看不懂

用例子来说明

作者: cjls2000 时间: 2006-9-18 15:56
修改一下这样应该能看明白点

'实例代码如下：

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

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 时间: 2006-9-18 16:52
这种情况应该用汇总查询,不需编程.你把数据库放上来,便于解决.

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