成绩表
| 行 |
成绩 |
学生 |
标记 |
| 1 |
97 |
张三 |
|
| 2 |
68 |
李四 |
|
| 3 |
60 |
王五 |
|
| 4 |
60 |
赵六 |
|
| 5 |
73 |
张三 |
|
| 6 |
61 |
李四 |
合格 |
| 7 |
75 |
王五 |
|
| 8 |
59 |
赵六 |
|
| 9 |
70 |
张三 |
|
| 10 |
61 |
李四 |
|
| 11 |
60 |
王五 |
|
| 12 |
79 |
赵六 |
|
| 13 |
60 |
张三 |
|
| 14 |
60 |
李四 |
|
| 15 |
99 |
王五 |
|
| 16 |
44 |
赵六 |
|
| 17 |
59 |
张三 |
合格 |
| 18 |
59 |
李四 |
|
| 19 |
61 |
王五 |
|
| 20 |
85 |
赵六 |
|
表格信息如上，需要查找成绩=60分时，并且它的下一行也是60分，在成绩行往下查找，距离最近的第一个59分或61分，然后在标记列标注"合格"
解释：表中成绩列，第一个60分在第3行，它的下一行也是60，然后往下查，第6行第一次出现61分，标记"合格"
继续往下查找，第11行出现60分，不做处理
继续往下查找，第13、14行出现60分，然后往下查，第17行第一次出现59分，标记"合格"
求大神指导！非常感谢！
Dim t As Table = Tables("成绩表")
For i As Integer = 1 To t.rows.count-1
If t.rows(i)("成绩") = 60
t.rows(i+1)("成绩") = 60
&& 或者 t.rows(i)("成绩") = t.rows(i+1)("成绩")
t.rows(m)("成绩") = 60+1 or 60-1
t.rows(m)("标记") = "合格"
[此贴子已经被作者于2017/7/10 15:26:14编辑过]
加好友 
发短信
Post By：2017/7/10 15:13:00 [显示全部帖子]
