Foxtable(狐表)用户栏目专家坐堂 → [已解决]用表达式还是代码?有点难!


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

主题:[已解决]用表达式还是代码?有点难!

帅哥哟,离线,有人找我吗?
狐作非为
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:456 积分:7267 威望:0 精华:0 注册:2012/2/6 12:27:00
[已解决]用表达式还是代码?有点难!  发帖心情 Post By:2014/3/12 15:07:00 [只看该作者]

[求助]用表达式还是代码?有点难!内详!!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


[此贴子已经被作者于2014-3-13 12:43:11编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/12 15:11:00 [只看该作者]

没看明白要怎么算.

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/3/12 15:18:00 [只看该作者]

相同单号,相同工序的有三个日期,滞留天数,想怎么算?


 回到顶部
帅哥哟,离线,有人找我吗?
狐作非为
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:456 积分:7267 威望:0 精华:0 注册:2012/2/6 12:27:00
  发帖心情 Post By:2014/3/12 15:23:00 [只看该作者]

相同单号,相同工序的最后一个日期与第一个日期的时间差

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/12 15:28:00 [只看该作者]

.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


 回到顶部
帅哥哟,离线,有人找我吗?
狐作非为
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:456 积分:7267 威望:0 精华:0 注册:2012/2/6 12:27:00
  发帖心情 Post By:2014/3/12 16:26:00 [只看该作者]

谢谢问题解决,要是可以直在最后一个生产日期那一行填写滞留时间就好了,谢谢版主们的帮助

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/12 16:28:00 [只看该作者]

不明白你还要怎么填写.

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
狐作非为
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:456 积分:7267 威望:0 精华:0 注册:2012/2/6 12:27:00
  发帖心情 Post By:2014/3/13 12:43:00 [只看该作者]

已解决,谢谢大虾们!!!

 回到顶部