Foxtable(狐表) → 用户栏目 → 专家坐堂 → 子表增加行


  共有2516人关注过本帖树形打印复制链接

主题：子表增加行
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		子表增加行  发帖心情 Post By：2016/9/1 0:11:00 [只看该作者]

Select Case e.DataCol.Name
    Case "材料编号"
        If e.DataRow.IsNull("材料编号") = False Then '如果已经输入订单编号
            If e.DataRow.GetChildRows("核算汇总").Count > 0 Then '而且有订单明细  （材料编号作为判断的依据列）

            ElseIf e.DataRow.GetChildRows("核算汇总").Count = 0 Then '而且无订单明细
                Dim dr1 As DataRow = DataTables("核算汇总").AddNew()
                dr1("材料编号") = e.DataRow("材料编号")
                dr1("报价编号") = e.DataRow("报价编号")
            End If
        End If
End Select

现有的代码只关注增加  不能分析是否存在   


我想要如果当前增加的过程中发现已经有了同样的内容存在  则放弃新增  否则新增行 复制内容   谢谢高手
[此贴子已经被作者于2016/9/1 0:11:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/1 8:58:00 [只看该作者]

Select Case e.DataCol.Name
    Case "材料编号"
        If e.DataRow.IsNull("材料编号") = False Then '如果已经输入订单编号
            Dim dr As DataRow = DataTables("核算汇总").Find(CExp("材料编号='{0}' and 报价编号='{1}'",e.DataRow("材料编号"),e.DataRow("报价编号")))
            If dr Is Nothing Then
                Dim dr1 As DataRow = DataTables("核算汇总").AddNew()
                dr1("材料编号") = e.DataRow("材料编号")
                dr1("报价编号") = e.DataRow("报价编号")
            End If
        End If
End Select
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询