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

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

 

 

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

 

 

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

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

谢谢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老师！！

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