主题：如何用一列显示某列内容出现的次数？

DataColChanged事件,我测试没问题！！！

If e.DataCol.Name = "第一列" Then
    e.dataRow("第二列") =Format(Tables("test").Compute("Count(第一列)","[第一列] = '" & e.dataRow("第一列")  & "'"),"000")
end if

如果数据量不大这样可以吧： DataColChanged     这样相当予每次编辑、修改第一列后都重置一次

If e.DataCol.Name = "第一列" Then   

    Dim dys As List(Of String) = DataTables("test").GetUniqueValues("","第一列")
    For Each dy As String In dys
        dim n as integer = 0
        Dim drs As List(Of DataRow)
        drs = DataTables("test").Select("[第一列] = '" & dy & "'")
        For Each dr As Datarow In drs
            n = n + 1

            dr("第二列") =Format(n,"000")
        Next
    next
    if e.dataRow.IsNull("第一列")
        e.dataRow("第二列") = ""
    end if
end if