主题：表的问题

只计算有数值的行，如何改代码？

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

点击浏览该文件:管理项目8.foxdb

具体一点你的问题，执行什么代码，要实现什么效果？具体里说明。

第四列的运算，有数据更新时就会乱

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

把

 

Tables("老时时彩").Sort = "日期"

 

改成

 

Tables("老时时彩").Sort = "日期, 期号"

还是有问题，一更新数据就把没数据的也运算完了，跑到表尾去了！老师帮我测试看是什么问题，谢谢

此主题相关图片如下：qq图片20180703153225.png


此主题相关图片如下：qq图片20180703152826.png
一个图是正常的，还有一个图是更新数据后的，计算了没有数据的行。

If e.DataCol.name = "开奖号" Then
    If e.DataRow("开奖号").length >= 5 Then
        Dim t As Table = Tables("老时时彩")
        Dim drs = t.DataTable.Select("len(开奖号)>=5", "日期,期号")
        For i As Integer = 0 To drs.count-10
            Dim r1 As DataRow = drs(i)
            Dim flag As String = "无"
            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("开奖号").substring(0,1) = r2("开奖号").substring(0,1) Then
                    flag = "有"
                    Exit For
                End If
            Next
            r1("第四列") = flag
        Next
    Else
        e.DataRow("第四列") = Nothing
    End If
End If

谢谢