主题：表

这个意思？

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