For Each XX As String In XXs
dr( XX &"是或好人") = DataTables("答案2").Compute("Count(单位)", "[单位] = '" & dw & "'And 类别 = '" & lb & "'And " & XX & "= 'A'")
dr( XX &"是或好%") = dr( XX &"是或好人")/dr("调查人数")*100
dr( XX &"否或不好人") = DataTables("答案2").Compute("Count(单位)", "[单位] = '" & dw & "'And 类别 = '" & lb & "'And " & XX & "= 'B'")
dr( XX &"否或不好%") = dr( XX &"否或不好人")/dr("调查人数")*100
dr("得分") += dr( XX &"是或好人") * rdr("A") + dr( XX &"否或不好人") * rdr("B")
Dim Nms() As String = {XX &"是或好%",XX &"否或不好%","得分"}
For Each nm As String In nms
If dr.IsNull(Nm) = False Then
dr(Nm) = Format(dr(Nm),"0.00") '确定小数位数
End If
Next
Next
dr("得分") = Format(dr("得分")/dr("调查人数")/7, "0.00")
代码执行到 dr("得分") += dr( XX &"是或好人") * rdr("A") + dr( XX &"否或不好人") * rdr("B") 时报错,请指教。谢谢!
[此贴子已经被作者于2017/11/24 9:42:29编辑过]