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
"
BAND
SL =
BAND
SL + sl
BAND
FZL =
BAND
FZL + jz
BAND
FJE =
BAND
FJE + roundtolarger(zje, 0)
BAND
AVG = roundtolarger((
BAND
FJE / (
BAND
SL + 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/)
Powered by Discuz! X3.3