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


  共有1986人关注过本帖平板打印复制链接

主题:最后一行

帅哥哟,离线,有人找我吗?
实话实说
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2649 积分:19384 威望:0 精华:1 注册:2008/9/12 9:19:00
最后一行  发帖心情 Post By: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


 回到顶部