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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 子表最后一行数据

共有1389人关注过本帖树形打印复制链接主题：子表最后一行数据

txtxtttt1919

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

加好友

发短信

等级：幼狐帖子：99 积分：1121 威望：0 精华：0 注册：2016/10/31 21:07:00

子表最后一行数据 发帖心情

Post By：2017/2/12 14:29:00 [只看该作者]

”报告流水“为”报告台账“子表，我在datarowdeleting事件中写的以下代码：

Dim dr As DataRow = e.DataRow.getparentrow("报告台账")

If dr.getchildrows("报告流水").count = 1 Then

dr("处理情况") = Nothing

Else

Dim pr As DataRow = DataTables("报告流水").datarows(dr.getchildrows("报告流水").count - 1)

dr("处理情况") = pr("处理")

End If

预想效果：如果”报告流水“中删除的行是”报告台账“在子表中的唯一一行，那么”处理情况“一栏为空。

否则”处理情况“一栏中写入”报告流水“最后一行”处理“列的数据。

但运行的结果我自己都看不懂，求教。

另问：count 是最后一行，还是 count - 1是最后一行

wyz20130512

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

加好友

发短信

等级：六尾狐帖子：1242 积分：9380 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2017/2/12 15:24:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/scr/0633.htm

Count是总的行数，首行是从0开始的，Count - 1 是末行的位置。

[此贴子已经被作者于2017/2/12 15:25:46编辑过]

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/12 15:53:00 [只看该作者]

Dim dr As DataRow = e.DataRow.getparentrow("报告台账")
Dim drs As List(Of DataRow) = dr.getchildrows("报告流水")
Dim str As String = Nothing
For i As Integer = drs.count-1 To 0 Step -1
    If drs(i)("_Identify") <> e.DataRow("_Identify") Then
        str = drs(i)("处理")
        Exit For
    End If
Next
dr("处理情况") = str