- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [已解决]用表达式还是代码？有点难！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47563)
-- 发布时间：2014/3/12 15:07:00
-- [已解决]用表达式还是代码？有点难！
[求助]用表达式还是代码？有点难！内详！！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
[此贴子已经被作者于2014-3-13 12:43:11编辑过]
-- 发布时间：2014/3/12 15:11:00
--
没看明白要怎么算.
-- 发布时间：2014/3/12 15:18:00
--
相同单号，相同工序的有三个日期，滞留天数，想怎么算？
-- 发布时间：2014/3/12 15:23:00
--
相同单号，相同工序的最后一个日期与第一个日期的时间差
-- 发布时间：2014/3/12 15:28:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2014/3/12 16:26:00
--
谢谢问题解决，要是可以直在最后一个生产日期那一行填写滞留时间就好了，谢谢版主们的帮助
-- 发布时间：2014/3/12 16:28:00
--
不明白你还要怎么填写.
-- 发布时间：2014/3/12 17:09:00
--
If e.DataCol.name="生产日期" Then
If e.DataRow.IsNull("单号")=False AndAlso e.DataRow.IsNull("工序")=False Then
Dim d1 As Date = e.DataTable.Compute("max(生产日期)","单号=\'" & e.DataRow("单号") & "\' and 工序=\'" & e.DataRow("工序") & "\'")
Dim d2 As Date =e.DataTable.Compute("min(生产日期)","单号=\'" & e.DataRow("单号") & "\' and 工序=\'" & e.DataRow("工序") & "\'")
If d1 <> d2 Then
If e.DataRow("生产日期") = d1 Then
e.DataRow("滞留天数")=(d1-d2).Totaldays
End If
Else
e.DataRow("滞留天数") = Nothing
End If
End If
End If
-- 发布时间：2014/3/13 12:43:00
--
已解决，谢谢大虾们！！！