- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 相邻行相减等于0 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158683)
-- 发布时间：2020/11/28 22:51:00
-- 相邻行相减等于0
我这个表有个代码列， 我想第一行的代码和第二行的代码相减，如果不等于0， 通过， 如果等于0，用msbox显示出来， 然后第三行的代码和第二行的代码相减，如果不等于0， 通过， 如果等于0，用msbox显示出来，然后第四行的代码和第三行的代码相减，如果不等于0， 通过， 如果等于0，用msbox显示出来，…… 一直到最后一行。 其实我的目的就是相邻两行不能是一样的数， 因为同一学校的考生不能挨着。 请问如何用命令给排查出来？ 谢谢。
此主题相关图片如下：55.jpg
-- 发布时间：2020/11/29 20:33:00
--
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
next
-- 发布时间：2020/11/29 21:58:00
-- 这个是错在哪里？
请问这个是错在哪里？
此主题相关图片如下：99.jpg
-- 发布时间：2020/11/29 22:09:00
--
for i as integer = 1 to t.rows.count - 1
-- 发布时间：2020/11/29 22:24:00
-- 显示考场和座位号
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
-- 发布时间：2020/11/29 22:38:00
--
msgbox("第" & t.rows(i)("考场") & "考场")
-- 发布时间：2020/11/30 15:30:00
-- 如何再加一个语句
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("不有同学校相邻考生")
请问如何实现？
-- 发布时间：2020/11/30 15:42:00
--
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
End If
Next
-- 发布时间：2020/12/12 15:28:00
-- 请问如何把等于零的信息都显示出来
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
next
这个只能是一条一条显示，然后点击确定， 请问如何一下子都显示出来
-- 发布时间：2020/12/12 16:11:00
--
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
next
if lst.count > 0 then
msgbox("第" & string.join(",",lst.toarray) & "行")
end if