主题：相邻行相减等于0

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)("座号") & "座号") 加进去， 我没加明白， 请把我加进去呗， 谢谢

lst.add(i & "行,座号" & 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

行索引是从0开始的

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”　　　　请问如何能实现？

If t.rows(i)("代码") = t.rows(i-1)("代码") Then
lst.add((i+1) & "行,座号" & 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+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，　我这个是排考场　，　一个学校不能挨在一起，　一个考场每组是五桌。　到第六桌的时候就下一组了

For i As Integer = 1 To t.rows.count - 1