Dim Colnames() as String={"朱涛","熊柳雄","梅鲲鹏","徐宛婉","李余","胡炜烽","汪家兵"} For i As Integer = 0 To ColNames.Length-1 Dim name as String = Colnames(i).SubString(0,1) if dr(Colnames(i))=True then dr("人均案件数")=1/(Math.abs(sum)-1) dr("案数" & name)=dr(colnames(i))*dr("人均案件数")*(-1) else dr("案数" & name)=Nothing end if next
加好友 
发短信
好心情
Post By：2009/4/29 16:04:00 [显示全部帖子]
