主题：表

求教版主

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

点击浏览该文件:kmc.foxdb

大神，下载代码该如何改？表事件运算代码识别不了表的最后行，运算结果错误！

没看懂。哪个表什么代码有问题？

如图

此主题相关图片如下：e2e61a22-19ef-43c5-bb28-9ccb25dd9183.jpg
如图

还是没看懂。现在返回什么结果？实际上需要什么结果？

现在的结果如截图，但代码是计算到表的倒数第10行的，表的倒数9行没结果的。详见表事件代码

这个意思？

 

If e.DataCol.name = "总和" Then
    If e.DataRow("总和").length >= 1 Then
        Dim t As Table = Tables("老时时彩")
        Dim drs = t.DataTable.Select("len(总和)>=1", "日期,期号")
        For i As Integer = 0 To drs.count-10
            Dim r1 As DataRow = drs(i)
            Dim flag As String = "1无"
            For j As Integer = i+1 To i+9
                Dim r2 As DataRow = drs(j)
                If val(r1("总和")) <> 0 AndAlso r1.IsNull("总和") = False AndAlso r2.IsNull("总和") = False AndAlso r1("总和") = r2("总和") Then
                    flag = "1有"
                    Exit For
                End If
            Next
            r1("第五列") = flag
        Next
        For i As Integer = drs.count-10+1 To drs.count-1
            Dim r1 As DataRow = drs(i)
            Dim flag As String = "1无"
            r1("第五列") = flag
        Next
       
    Else
        e.DataRow("第五列") = Nothing
    End If
End If

如何改下载代码，事件代码不改动可以正常运算？表事件代码还有很多，一一改动很麻烦

不理解你的意思。照抄8楼代码。