主题：[求助]代码出错，求助修改（已解决）

一分厂根据考核分名次排定，二分厂根据一分厂的名次考核分来套取名次。
具体规则：二分厂考核分 >= 一分厂第三名的，名次均为第三名；
              二分厂考核分 >= 一分厂第五名的，名次均为第五名；
              二分厂考核分 < 一分厂第五名的，名次按 >= 一分厂的对应的考核分套取（低于一分厂最低考核分的套取一分厂的最低名次）。

 

 

如何用代码来实现上述要求，请各位老师指教，谢谢！

 

 

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

点击浏览该文件:案例2.table

 代码如下

Dim drs As List(Of DataRow) = DataTables("考核名次").Select("厂家 = '一分厂'", "考核分 desc")

Dim count As Integer = 1
For Each dr As DataRow In drs
    dr("名次") = count
    count = count + 1
Next

Dim dr3 As DataRow = DataTables("考核名次").Find("名次 = 3 And 厂家 = '一分厂'")
Dim dr5 As DataRow = DataTables("考核名次").Find("名次 = 5 And 厂家 = '一分厂'")
Dim drMin As DataRow = DataTables("考核名次").Find("名次 = " & count - 1 & " And 厂家 = '一分厂'")
Dim odrs As List(Of DataRow) = DataTables("考核名次").Select("厂家 = '一分厂' And 名次 > 5", "考核分 desc")

drs = DataTables("考核名次").Select("厂家 = '二分厂'")
For Each dr As DataRow In drs
    If dr("考核分") >= dr3("考核分") Then
        dr("名次") = 3
    Else If dr("考核分") >= dr5("考核分") Then
        dr("名次") = 5
    Else If dr("考核分") >= drMin("考核分") Then
        For Each odr As DataRow In odrs
            If dr("考核分") >= odr("考核分") Then
                dr("名次") = odr("名次")
                Exit For
            End If
        Next
    Else
        dr("名次") = count - 1
    End If
Next

谢谢lin_hailun老师的回复，代码运行出错，提示如图：

 

 

此主题相关图片如下：j.jpg

 

 

Dim drs As List(Of DataRow) = DataTables("考核名次").Select("厂家 = '一分厂'", "考核分 desc")
Dim count As Integer = 1

For Each dr As DataRow In drs
    dr("名次") = count
    count = count + 1
Next

 

将变量count的初始值改成 "0"，代码可以通过，但是名次提升了一档。

 

如果再将代码"dr("名次") = count "改成"dr("名次") = count + 1 "，名次符合要求，但是出现出错提示：

 

 

此主题相关图片如下：k.jpg

 

 

如何修改代码，请各位老师指教，谢谢！！

 

再次感谢lin_hailun老师！！

 哦哦，忘记你第一行是空值了。

Dim drs As List(Of DataRow) = DataTables("考核名次").Select("厂家 = '一分厂'", "考核分 desc")

Dim count As Integer = 1
For Each dr As DataRow In drs
    dr("名次") = count
    count = count + 1
Next

Dim dr3 As DataRow = DataTables("考核名次").Find("名次 = '3' And 厂家 = '一分厂'")
Dim dr5 As DataRow = DataTables("考核名次").Find("名次 = '5' And 厂家 = '一分厂'")
Dim drMin As DataRow = DataTables("考核名次").Find("名次 = '" & count - 1 & "' And 厂家 = '一分厂'")
Dim odrs As List(Of DataRow) = DataTables("考核名次").Select("厂家 = '一分厂' And 名次 > 5", "考核分 desc")

drs = DataTables("考核名次").Select("厂家 = '二分厂'")
For Each dr As DataRow In drs
    If dr("考核分") >= dr3("考核分") Then
        dr("名次") = 3
    Else If dr("考核分") >= dr5("考核分") Then
        dr("名次") = 5
    Else If dr("考核分") >= drMin("考核分") Then
        For Each odr As DataRow In odrs
            If dr("考核分") >= odr("考核分") Then
                dr("名次") = odr("名次")
                Exit For
            End If
        Next
    Else If dr("厂家") <> "" Then
        dr("名次") = count - 1
    End If
Next

谢谢lin_hailun老师的回复，问题解决了，再次衷心感谢！！