以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  最后一行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115974)
--  作者：实话实说
--  发布时间：2018/3/17 18:03:00
--  最后一行
以下代码是将产品明细表明细分段列最后1行上传到产品总帐表的库存分段列.产品总帐表与产品明细表为关联表.问题:如果插入了一行,则上传失败.
If e.DataCol.Name = "明细分段" Then
    Dim dr As DataRow =e.DataRow.GetParentRow("产品总帐")
    If dr IsNot Nothing Then
        Dim drs As List(Of DataRow) = dr.GetChildRows("产品明细")
        For i As Integer = drs.Count -1 To 0 Step -1
            If drs(i).IsNull("明细分段") = False Then
                dr("库存分段") = drs(i)("明细分段")
                Exit For
            End If
        Next
    End If
End If
--  作者：有点甜
--  发布时间：2018/3/18 21:48:00
--  

你逻辑有问题。要把什么数据放进去？是最后一行的值？还是最后一次修改的值？请具体说明逻辑。
--  作者：有点甜
--  发布时间：2018/3/18 21:50:00
--  
If e.DataCol.Name = "明细分段" Then
    Dim dr As DataRow =e.DataRow.GetParentRow("产品总帐")
    If dr IsNot Nothing Then
        Dim fdr = DataTables("产品明细").find("编号=\'" & e.DataRow("编号") & "\'", "_Sortkey desc")
        If fdr IsNot Nothing Then
            dr("库存分段") = fdr("明细分段")
        End If
    End If
End If
--  作者：实话实说
--  发布时间：2018/3/19 8:23:00
--  
回2楼：不管是否插入新行，我都是要最后一行的值，不是最后修改的值。
--  作者：有点甜
--  发布时间：2018/3/19 8:25:00
--  
以下是引用实话实说在2018/3/19 8:23:00的发言：
回2楼：不管是否插入新行，我都是要最后一行的值，不是最后修改的值。

 

那就参考3楼代码
--  作者：实话实说
--  发布时间：2018/3/19 8:52:00
--  
谢了.