主题：相邻行相减等于0

我这个表有个代码列，  我想第一行的代码和第二行的代码相减，如果不等于0， 通过， 如果等于0，用msbox显示出来， 然后第三行的代码和第二行的代码相减，如果不等于0， 通过， 如果等于0，用msbox显示出来，然后第四行的代码和第三行的代码相减，如果不等于0， 通过， 如果等于0，用msbox显示出来，……   一直到最后一行。   其实我的目的就是相邻两行不能是一样的数， 因为同一学校的考生不能挨着。 请问如何用命令给排查出来？  谢谢。

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

请问这个是错在哪里？
此主题相关图片如下：99.jpg

Dim t As Table = Tables("初二汤原考点")
For i As Integer = 1 To t.rows.count - 1
If t.rows(i)("代码") = t.rows(i-1)("代码") Then
msgbox("第" & i & "行")
End If
Next

请问 我想在消息提示那msgbox("第" & i & "行")， 不想提示第几行， 想提示第几考场，座号为第几号？ 请问这个能实现吗？

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

Dim t As Table = Tables("初二汤原考点")
For i As Integer = 1 To t.rows.count - 1
If t.rows(i)("代码") = t.rows(i-1)("代码") Then
msgbox("第" & i & "行")
End If
Next

 

 

以上的语句能不能再加一句    If t.rows(i)("代码") 不等于 t.rows(i-1)("代码") Then
msgbox("不有同学校相邻考生")
请问如何实现？

dim t as table = tables("xx表")

Dim t As Table = Tables("初二汤原考点")
Dim lst As new List(of String)
For i As Integer = 1 To t.rows.count - 1
If t.rows(i)("代码") = t.rows(i-1)("代码") Then
lst.add(i)
End If
Next
If lst.count > 0 Then
msgbox("第" & String.join(",",lst.toarray) & "行",)
End If

 

这个代码是一起提示第几行，  我想一起提示同一行的座号列， 把msgbox("第" & t.rows(i)("座号") & "座号") 加进去， 我没加明白， 请把我加进去呗， 谢谢

Dim t As Table = Tables("初二汤原考点")
Dim lst As new List(of String)
For i As Integer = 1 To t.rows.count - 1
If t.rows(i)("代码") = t.rows(i-1)("代码") Then
lst.add(i & "行,座号" & t.rows(i)("座号"))
End If
Next
If lst.count > 0 Then
msgbox("第" & String.join(";",lst.toarray))
End If

 

 

请问命令执行后， 113行座号是24， 但实际113行座号是23啊，   请问如何修改啊

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

Dim t As Table = Tables("初二汤原考点")
Dim lst As new List(of String)
For i As Integer = 1 To t.rows.count - 1
If t.rows(i)("代码") = t.rows(i-1)("代码") Then
lst.add((i+1) & "行,座号" & t.rows(i)("座号"))
End If
Next
If lst.count > 0 Then
msgbox("第" & String.join(";",lst.toarray))
End If

 

以上代码可以找出符合条件的第几行， 我想让符合条件的所有行，在“排序”列，都标记数值为“1”　　　　请问如何能实现？

Dim t As Table = Tables("初二汤原考点")
Dim lst As new List(of String)
For i As Integer = 1 To t.rows.count - 1
If t.rows(i)("代码") = t.rows(i-1)("代码") Then
lst.add((i+1) & "行,座号" & t.rows(i)("座号"))
End If
Next
If lst.count > 0 Then
msgbox("第" & String.join(";",lst.toarray))
End If

 

 

以上命令是判断所有行两列相减是否等于0，　　能否帮我改进一下，　我想1-5行，　执行这个命令，　然后6-10行，　然后11-15行……　一直执行到最后行，　把等于0的一起都显示出来，　请问能实现吗？

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

就是第五行和第六行可以相减等于0，　第十行和第十一行可以相减等于0，　我这个是排考场　，　一个学校不能挨在一起，　一个考场每组是五桌。　到第六桌的时候就下一组了