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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 向下移一行

共有6515人关注过本帖树形打印复制链接主题：向下移一行

采菊东篱下

小大 61楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2022/1/5 17:26:00 [只看该作者]

弹出有很多个符合条件的字符。

有点蓝

小大 62楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107718 积分：547917 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/5 17:32:00 [只看该作者]

肯定有不符合的才会等于false

采菊东篱下

小大 63楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2022/1/5 21:08:00 [只看该作者]

改为这样临时表还是没移动行：

For ia1 As Integer = 0 To dt.Table.rows.count - 1 Step 2

If ia1+1 < dt.Table.Rows.Count Then

Dim dr2a1 As DataRow = DataTables("比赛积分").SQLFind("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & Cstr(Val(di2)-1) & "' And [分组] = '" & Str & "' And ([编号] = '" & dt.Table.Rows(ia1)("编号") & "'or [姓名] = '" & dt.Table.Rows(ia1)("姓名") & "')")

Dim dr2a2 As DataRow = DataTables("比赛积分").SQLFind("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & Cstr(Val(di2)-1) & "' And [分组] = '" & Str & "' And ([编号] = '" & dt.Table.Rows(ia1+1)("编号") & "'or [姓名] = '" & dt.Table.Rows(ia1+1)("姓名") & "')")

If dr2a1 IsNot Nothing And dr2a2 IsNot Nothing And dr2a1("排序") = dr2a2("排序") Then

With dt.Table

.Rows(ia1+1).Move(.Position + 1)

End With

End If

dt.Table.Save()

[此贴子已经被作者于2022/1/5 22:08:54编辑过]

采菊东篱下

小大 64楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2022/1/5 21:10:00 [只看该作者]

肯定有上轮交过手的。

程兴刚

小大 65楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7237 积分：40614 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2022/1/5 21:48:00 [只看该作者]

您这个肯定有一定的比赛规则，谁与谁对局，一定是规则说了算，不要告诉大家简单的上移行或者下移行，建议您简单地描述规则，是否上移行还是下移行、还是如何匹配对手，规则说了算，不仅仅是上移行、下移行那么简单！

采菊东篱下

小大 66楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2022/1/5 22:19:00 [只看该作者]

第一轮比赛随机对手和红黑方，第二轮比赛安上轮积分为序，安顺序排座，同分情况下上轮交过手的顺延跟下一行对手比赛，如果上轮比赛一方执红，另一方执黑，则此轮执红的改为执黑，执黑的改执红，否则随机红黑方，第三轮安本人上轮止累计积分、曾经交手的上轮止累计积分为序排座，同理如果上轮比赛一方执红，另一方执黑，则此轮执红的改为执黑，执黑的改执红，否则随机红黑方。