- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 查找问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=157408)
-- 发布时间：2020/10/15 6:02:00
-- 查找问题
表找表A1-100行的数据， 如果数字列是两个奇数相邻或两个偶然想邻就提示 第几行和第几行相邻？ 请问代码如何写啊
find ......
If MessageBox.Show("第几行与第几行相邻,是否重排?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Warning) = DialogResult.No Then
Return
End If
-- 发布时间：2020/10/15 9:20:00
--
请举例截图说明一下
-- 发布时间：2020/10/15 16:35:00
-- 只要要奇数或偶数相邻就提示
此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
此主题相关图片如下：3.jpg
-- 发布时间：2020/10/15 16:42:00
--
dim t as table = tables("表A")
for i as integer = 1 to t.rows.count - 1
if t.rows(i-1)("数字") = t.rows(i)("数字") then
msgbox((i-1) & "和" & i & "相连")
end if
next