Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何统计子表的生产周期天数+交表的下单日期=部门完成日期


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

主题：如何统计子表的生产周期天数+交表的下单日期=部门完成日期
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110788 积分：563872 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/13 14:23:00 [显示全部帖子]

部门完成日期是哪个表的？子表的生产周期天数是指某一行，还是子表的天数汇总。截图看看2个表数据

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110788 积分：563872 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/13 15:50:00 [显示全部帖子]

类似：

父表datacolchanged

Select Case e.DataCol.Name
    Case "下单日期","产品类型"
        If e.DataRow.IsNull("产品类型") = False AndAlso e.DataRow.IsNull("下单日期") = False
            Dim dr As DataRow = DataTables("子表").Find("产品类型='" & e.DataRow("产品类型") & "'")
            If dr IsNot Nothing Then
                e.DataRow("压铸") = e.DataRow("下单日期").adddays(dr("压铸"))
            End If
        End If
    Case "压铸"
        If e.DataRow.IsNull("压铸") = False AndAlso e.DataRow.IsNull("产品类型") = False
            Dim dr As DataRow = DataTables("子表").Find("产品类型='" & e.DataRow("产品类型") & "'")
            If dr IsNot Nothing Then
                e.DataRow("批锋") = e.DataRow("压铸").adddays(dr("批锋"))
            End If
        End If
End Select
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110788 积分：563872 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/13 16:23:00 [显示全部帖子]

父表datacolchanged

Dim pcls() As String = {"外购日期","压铸","披锋","钻孔"} '父表对应列名
Dim dcls() As String = {"外购周期","压铸","披锋","钻孔"} '子表对应列名
Select Case e.DataCol.Name
    Case "下单日期","产品类型"
        If e.DataRow.IsNull("产品类型") = False AndAlso e.DataRow.IsNull("下单日期") = False
            Dim dr As DataRow = DataTables("子表").Find("产品类型='" & e.DataRow("产品类型") & "'")
            Dim d As Date = e.DataRow("下单日期")
            For i As Integer =0 To pcls.Length - 1
                If dr.IsNull(dcls(i)) = False
                    d = d.AddDays(dr(dcls(i)))
                    e.DataRow(pcls(i)) = d
                End If
            Next
        End If
End Select
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110788 积分：563872 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/13 16:57:00 [显示全部帖子]

上传具体实例说明

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110788 积分：563872 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/13 16:59:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110788 积分：563872 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/13 17:30:00 [显示全部帖子]

把项目文件上传上来看看

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询