[求助]取表的复选框的顺序号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]取表的复选框的顺序号

共有2383人关注过本帖树形打印复制链接主题：[求助]取表的复选框的顺序号

czy

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

等级：超级版主帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2015/7/4 15:22:00 [显示全部帖子]

这样？

For Each r As Row In Tables("表A").Rows

If r.Checked = True Then

Dim r1 As Row = Tables("表B").AddNew

r1("ID") = r.Index+1

End If

czy

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

等级：超级版主帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2015/7/4 16:18:00 [显示全部帖子]

你的意思是每次增加行，只需写入顺序号？

是不是这次选择了5行，不管他的行号是多少，只需向表B写入1，2，3，4，5顺序号就行？

czy

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

等级：超级版主帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2015/7/4 16:26:00 [显示全部帖子]

Dim n As Integer

For Each r As Row In Tables("表A").Rows

If r.Checked = True Then

n = n + 1

Dim r1 As Row = Tables("表B").AddNew

r1("ID") = n

End If

主题：[求助]取表的复选框的顺序号