主题：[求助]怎么统计本行各符号的个数？

If e.DataCol.name <> "圆圈" Then

    e.DataRow("圆圈")=0

    For i As Integer=0 To 6

        If e.DataRow(Tables("表C").Cols(i).Name)="圆" Then

            e.DataRow("圆圈")=e.DataRow("圆圈")+1

        End If

    Next

End If

If e.Col.name<>"项目_1" AndAlso e.Col.name<>"项目_2" AndAlso e.Col.name<>"项目_3" AndAlso e.Col.name<>"项目_出差" AndAlso e.Col.name<>"项目_休假" AndAlso e.Col.name<>"项目_事假" Then

Dim dic As new Dictionary(of String,Integer)

dic.Add("项目_1")

dic.Add("项目_2")

dic.Add("项目_3")

dic.Add("项目_事假")

dic.Add("项目_休假")

dic.Add("项目_出差")

For i As Integer = 3 To 33  '列范围 第一列为0

    If e.Row(i) = "1" Then

        dic("项目_1") + = 1

    ElseIf e.Row(i) = "2" Then

        dic("项目_2") + = 1

    ElseIf e.Row(i) = "3" Then

        dic("项目_3") + = 1

    ElseIf e.Row(i) = "○" Then

        dic("项目_事假") + = 1

    ElseIf e.Row(i) = "*" Then

        dic("项目_休假") + = 1

    ElseIf e.Row(i) = "√" Then

        dic("项目_出差") + = 1

    End If

Next

e.Row("项目_1")=dic("项目_1")

e.Row("项目_2")=dic("项目_2")

e.Row("项目_3")=dic("项目_3")

e.Row("项目_事假")=dic("项目_事假")

e.Row("项目_休假")=dic("项目_休假")

e.Row("项目_出差")=dic("项目_出差")

End If

突然发现前面的清0是没有意义的代码可以删掉!