主题：代码怎么写

老师，文字的异常值代码要怎样改？比如如图
此主题相关图片如下：3.png
，导出“有”的异常值

代码一模一样

甜老师，帮我看看附件的代码该怎样改？一个表异常值有几个的，导出一个就终止了。

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

点击浏览该文件:a (3).table

还有这个表的数据是不断导入的，拜托了老师

修改代码，加一个前缀，如

 

If e.DataCol.name = "第一列" Then
    Dim t As Table = Tables("表B")
    Dim idx As Integer = t.FindRow(e.DataRow)
    Dim count As Integer = 0
    Dim j As Integer = idx
    For i As Integer = idx To 0 Step -1
        If t.rows(i)("第一列") = e.DataRow("第一列") Then
            count += 1
            j = i
        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("第一列 = '" & j & "-" & e.DataRow("第一列") & "'")
        If ndr Is Nothing Then ndr = DataTables("表C").addnew
        ndr("第一列") = j & "-" & e.DataRow("第一列")
        ndr("第二列") = count
    End If
End If

老师，如果要把行号也导出来呢？比如数据20是6次，20的第一个异常值终止行号是7行，在加一列终止行号可以吗？

 

35楼（j值）得到的是【起始行】，如果需要终止行，参考代码

 

If e.DataCol.name = "第一列" Then
    Dim t As Table = Tables("表B")
    Dim idx As Integer = t.FindRow(e.DataRow)
    Dim count As Integer = 0
    Dim j As Integer = idx

    Dim j As Integer = z
    For i As Integer = idx To 0 Step -1
        If t.rows(i)("第一列") = e.DataRow("第一列") Then
            count += 1
            j = i
        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

            z = i
        Else
            Exit For
        End If
    Next
    If count >= 5 Then
        Dim ndr = DataTables("表C").find("第一列 = '" & z & "-" & e.DataRow("第一列") & "'")
        If ndr Is Nothing Then ndr = DataTables("表C").addnew
        ndr("第一列") = z & "-" & e.DataRow("第一列")
        ndr("第二列") = count
    End If
End If

 

 

谢谢老师，万分感谢

老师，如果("表C")每导入一次异常值，("表C")以图片或文档发到微信上，开发版可完成这功能吗？谢谢

 

如果要发到微信上，需要接入【公众号】【企业号】才行的。微信目前不开放个人给个人发送信息的接口。

 

代替的方案：1、可以改成发邮件；2、可以改成发短信；3、可以改成发qq信息（前提是你要在电脑上运行了QQ）