下述一段代码主要想："季度"列内容为空时，“季度合计”列不计算，当选择“季度”列内容（第一季度、第二季度、第三季度、第四季度）时，相应的月份显示，其他月份列不显示，则“季度合计”列计算只显示的列，当把“季度”列清空时，“季度合计”为空。如何修改，弄了一上午，弄不好，请专家指导。代码：
Select Case e.DataCol.Name
Case "月考核奖金_1","月考核奖金_2","月考核奖金_3","月考核奖金_4","月考核奖金_5","月考核奖金_6","月考核奖金_7","月考核奖金_8","月考核奖金_9","月考核奖金_10","月考核奖金_11","月考核奖金_12"
Dim cls() As String = {"月考核奖金_1","月考核奖金_2","月考核奖金_3","月考核奖金_4","月考核奖金_5","月考核奖金_6","月考核奖金_7","月考核奖金_8","月考核奖金_9","月考核奖金_10","月考核奖金_11","月考核奖金_12"}
Dim t As Table = Tables(e.DataTable.Name)
Dim sum As Integer = 0
For Each c As String In cls
If e.DataRow.IsNull("季度") Then
sum += 0
ElseIf t.Cols(c).Visible AndAlso e.DataRow("季度") <> Nothing Then
sum += e.DataRow(c)
End If
Next
e.DataRow("季度合计") = sum
End Select
加好友 
发短信
Post By：2018/3/11 10:43:00 [只看该作者]
