相邻行相减等于0 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

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

for each i as integer = 1 to t.rows.count - 1

if t.rows(i)("代码") = t.rows(i-1)("代码") then

msgbox("第" & i & "行")

end if

请问这个是错在哪里？
图片点击可在新窗口打开查看

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

for i as integer = 1 to t.rows.count - 1

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

msgbox("第" & t.rows(i)("考场") & "考场")

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("初二汤原考点")
For i As Integer = 1 To t.rows.count - 1
If t.rows(i)("代码") = t.rows(i-1)("代码") Then
msgbox("第" & i & "行")

else

msgbox("不有同学校相邻考生")
End If
Next

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

for each i as integer = 1 to t.rows.count - 1

if t.rows(i)("代码") = t.rows(i-1)("代码") then

msgbox("第" & i & "行")

end if

这个只能是一条一条显示，然后点击确定，请问如何一下子都显示出来

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

dim lst as new list(of string)

for each i as integer = 1 to t.rows.count - 1

if t.rows(i)("代码") = t.rows(i-1)("代码") then

lst.add(i)

end if

if lst.count > 0 then

msgbox("第" & string.join(",",lst.toarray) & "行")

end if

主题：相邻行相减等于0