主题：表的问题

If e.DataCol.name = "开奖号" AndAlso e.DataRow("开奖号").length >= 5 Then

        Dim t As Table = Tables("老时时彩")
        For i As Integer = 0 To t.rows.count-10
            Dim r1 As Row = t.rows(i)
            Dim flag As String = "无"
            For j As Integer = i+1 To i+9
                Dim r2 As Row = t.rows(j)
                If r1("开奖号").substring(0,1) = r2("开奖号").substring(0,1) Then
                    flag = "有"
                    Exit For
                End If
            Next
           If IsNumeric(r1("开奖号")) Then     r1("第四列") = flag
        Next

End If