主题：表

8楼代码结果一样，

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

点击浏览该文件:kmc.foxdb

，结果正常是这样的
此主题相关图片如下：qq图片20190303122644.png

上图是下载代码不一样其它都未改动的结果，但下载数据的不完全。示例文件下载完善了但运算又有问题

上图是下载代码不一样其它都未改动的结果，但下载数据不完全。示例文件下载完善了但运算又有问题

无法理解你的意思。

 

1、你重置列计算，也就是重新计算一次，是否正确？

 

2、现在你的问题是什么？就例子说明，如何测试，最后需要得到什么效果？

1楼第五列的运算结果不正确，1楼的结果是14楼，表事件代码正常执行的结果是11楼。11楼和14楼的项目文件只有下载代码不一样，假如问题在下载代码，1楼的下载代码该如何完善？

修改datacolchanged事件啊

 

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 = nothing
            r1("第五列") = flag
        Next
       
    Else
        e.DataRow("第五列") = Nothing
    End If
End If

datacolchanged事件还有很多其它的这样的代码，全部改动比较麻烦。能否改动下载代码做出一样的效果？

不可以

这有个下载代码不同的项目（datacolcha

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

点击浏览该文件:kk.foxdb

nged事件代码相同，所有表都相同），为什么datacolchanged事件代码却可执行？麻烦甜老师再帮忙分析研究，看能否解决。