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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 我真不明！

共有2337人关注过本帖树形打印复制链接主题：我真不明！

有点蓝

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

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

Post By：2020/7/3 10:16:00 [显示全部帖子]

messagebox.show(math.Ceiling(1 / 2))

有点蓝

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

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

Post By：2020/7/4 9:50:00 [显示全部帖子]

For i = 0 To drs1.Count Step 2

Dim nr As DataRow = DataTables("老人组").AddNew

nr("桌号") = drs1(i)("排序")

nr("红方_编号") = drs1(i)("编号")

nr("红方_姓名") = drs1(i)("姓名")

If i + 1 <= drs1.Count

nr("黑方_编号") = drs1(i+1)("编号")

nr("黑方_姓名") = drs1(i+1)("姓名")

End If

有点蓝

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

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

Post By：2020/7/6 8:35:00 [显示全部帖子]

只是【If i + 1 <= drs1.Count】换了个位置不可能会导致报错，肯定是其它代码的原因

主题：我真不明！