主题：如何计算单元格相同字符的数量

各位朋友，谁知道如何计算每行单元格相同字符的个数?

 举例说明，最好上传foxtable项目。

我做了一个考勤表格，从1号到月底怎么统计每个人的出勤，缺勤，请假等在相应的列中自动计算出数值                               

参考代码

 

For Each r As Row In Tables("表A").Rows
    Dim count1 = 0
    Dim count2 = 0
    For Each c As Col In Tables("表A").cols
        If c.name Like "*第*" Then
            If r(c.name) = "出勤" Then
                count1 += 1
            ElseIf r(c.name) = "缺勤" Then
                count2 += 2
            End If
        End If
    Next
    r("第九列") = count1
    r("第十列") = count2
Next

先按名字分组，再按名字去统计吧，把日期作为查询条件

我原来是用excel做的，但是导入foxtable后，计算公式就不能用了，不知道如何在foxtable中输入像Excel表格中“=COUNTIF(E10:K10,"√")”指令的效果

 如果用表达式，就这样写

 

iif(某列='勾', 1, 0) + iif(某列='勾', 1, 0) + iif(某列='勾', 1, 0)

如果用按钮，就参考5楼代码

也可以写到datacolchanged事件

 

If e.DataCol.name Like "*第*" Then
    Dim count1 = 0
    Dim count2 = 0
    For Each c As DataCol In e.DataTable.datacols
        If c.name Like "*第*" Then
            If e.datarow(c.name) = "出勤" Then
                count1 += 1
            ElseIf e.datarow(c.name) = "缺勤" Then
                count2 += 2
            End If
        End If
    Next
    e.DataRow("第九列") = count1
    e.DataRow("第十列") = count2
End If