主题：帮忙看看哪里错了

你没有触发倍率和电价列呀，在加上：

        
    Case  "倍率","电价"
        If dr.IsNull("有功电量") OrElse dr.IsNull("无功电量") Then
            dr("无功功率") = Nothing
            dr("无功电费") = Nothing
        ElseIf dr("无功电量") >= dr("有功电量") * 0.75 Then
            dr ("无功电费") = 0
            dr("无功功率") = 1 / math.Sqrt(1 + (dr("无功电量")^2 / dr("有功电量")^2))
        ElseIf dr("无功电量") < dr("有功电量") * 0.75 Then
            dr ("无功电费") = dr("有功电量") * 0.75 - dr("无功电量") * 0.01
            dr("无功功率") = 1 / math.Sqrt(1 + (dr("无功电量")^2 / dr("有功电量")^2))
        End If