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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关联表自动增加行问题

共有1972人关注过本帖树形打印复制链接主题：关联表自动增加行问题

13775189031

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

等级：四尾狐帖子：815 积分：5652 威望：0 精华：0 注册：2017/12/19 14:46:00

关联表自动增加行问题 发帖心情

Post By：2018/8/1 13:42:00 [显示全部帖子]

Select Case e.DataCol.name

Case "预算编号"

If e.DataRow.IsNull("预算编号") Then

DataTables("物资采购明细表").DeleteFor("预算编号='" & e.DataRow("预算编号") & "'")

Else

Dim ndr1 As DataRow = DataTables("物资采购明细表").Find("预算编号 = '" & e.DataRow("预算编号") & "'")

If ndr1 Is Nothing Then

Dim ndr As DataRow = DataTables("物资采购明细表").AddNew

ndr("预算编号") = e.DataRow("预算编号")

ndr("编制人") = e.DataRow("编制人")

End If

End Select

这段编码实现在子表中最后一行增加行，怎样修改能实现增加行始终在第一行？

13775189031

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

等级：四尾狐帖子：815 积分：5652 威望：0 精华：0 注册：2017/12/19 14:46:00

Post By：2018/8/1 16:57:00 [显示全部帖子]

还是在最后一行

13775189031

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

等级：四尾狐帖子：815 积分：5652 威望：0 精华：0 注册：2017/12/19 14:46:00

Post By：2018/8/1 17:36:00 [显示全部帖子]

改成 Dim ndr As Row = Tables("物资采购明细表").AddNew以后没问题了！

谢谢！

主题：关联表自动增加行问题