主题：代码怎么写

异常的逻辑是什么？连续出现3次以上的数据？还是说出现了3次的都统计？统计个数是连续还是不连续的？

异常的逻辑是：连续出现5次以上的数据，统计个数是连续的。

DataColChanged事件

 

If e.DataCol.name = "第一列" Then
    Dim t As Table = Tables("表B")
    Dim idx As Integer = t.FindRow(e.DataRow)
    Dim count As Integer = 0
    For i As Integer = idx To 0 Step -1
        If t.rows(i)("第一列") = e.DataRow("第一列") Then
            count += 1
        Else
            Exit For
        End If
    Next
    For i As Integer = idx+1 To t.rows.count-1
        If t.rows(i)("第一列") = e.DataRow("第一列") Then
            count += 1
        Else
            Exit For
        End If
    Next
msgbox(count)
    if count >= 5 then
        Dim ndr = DataTables("表C").AddNew
        ndr("第一列") = e.datarow("第一列")
        ndr("第二列") = count
    end if
End If

老师

统计个数只统计连续的。相同的数据不连续也不转入数据表该怎样改？

 

不用改，如果有问题，具体项目发上来测试。

只有一个异常值的，表c却重复导入了6行

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:a.table

只有一个异常值的，表c却重复导入了6行

If e.DataCol.name = "第一列" Then
    Dim t As Table = Tables("表B")
    Dim idx As Integer = t.FindRow(e.DataRow)
    Dim count As Integer = 0
    For i As Integer = idx To 0 Step -1
        If t.rows(i)("第一列") = e.DataRow("第一列") Then
            count += 1
        Else
            Exit For
        End If
    Next
    For i As Integer = idx+1 To t.rows.count-1
        If t.rows(i)("第一列") = e.DataRow("第一列") Then
            count += 1
        Else
            Exit For
        End If
    Next
    If count >= 5 Then
        Dim ndr = DataTables("表C").find("第一列 = '" & e.DataRow("第一列") & "'")
        If ndr Is Nothing Then ndr = DataTables("表C").addnew
        ndr("第一列") = e.DataRow("第一列")
        ndr("第二列") = count
    End If
End If

谢谢，老师辛苦了