drawcell事件中的代码，哪里有错误劳驾审定一下。如何达到我说的效果？
If e.Row(e.Table.Cols(0).name) = "合计" Then
e.Style = "abc"
For n As Integer = 0 To e.Row.Index -1
r = e.Table.Rows(n)
If r(e.Table.Cols(0).name) <> "合计" Then
For i As Integer = 1 To sum.length - 1
Dim d1 As Double
If cstr(r(Vars("fzToTal")(i))).contains("%") = False Then
If Double.TryParse(r(Vars("fzToTal")(i)),d1) Then
sum(i) += val(d1)
If Format(val(sum(i)),"n") <> 0 And Format(val(sum(i)),"n") <> "0" And Format(val(sum(i)),"n") IsNot Nothing Then
e.Row(Vars("fzToTal")(i)) = Format(val(sum(i)),"n")
Else
e.Row(Vars("fzToTal")(i)) = Nothing
End If
'
End If
Else
If Double.TryParse(r(Vars("fzToTal")(i)).replace("%",""),d1) Then
sum(i) += val(d1)/100
If Format(val(sum(i)),"n") <> 0 And Format(val(sum(i)),"n") <> "0" And Format(val(sum(i)),"n") IsNot Nothing Then
e.Row(Vars("fzToTal")(i)) = Format(sum(i),"Percent")
Else
e.Row(Vars("fzToTal")(i)) = Nothing
End If
End If
End If
Next
End If
Next
End If
加好友 
发短信
Post By：2015/11/10 9:54:00 [显示全部帖子]
