时间加减 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 时间加减

共有4986人关注过本帖树形打印复制链接主题：时间加减

有点灰2

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：104 积分：785 威望：0 精华：0 注册：2022/5/7 19:05:00

时间加减

Post By：2022/5/21 19:54:00 [只看该作者]

Select Case e.DataCol.name
    Case "进料检验单_入厂时间","进料检验单_报检时间"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("进料检验单_报检时间") Or dr.IsNull("进料检验单_入厂时间") Then
            dr("本次用时进料检验单_工期完成") = Nothing
        ElseIf dr.("进料检验单_报检时间") > = dr.(进料检验单_入厂时间) Then
            dr.("本次用时进料检验单_工期完成") = 0
        Else
            dr.("本次用时进料检验单_工期完成") = 1
        End If
    End Select

图片点击可在新窗口打开查看此主题相关图片如下：140.png

我想判断一下如果报检时间大于入场时间那么工期完成情况为0 否者为1
这样写错在哪啊

有点灰2

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：104 积分：785 威望：0 精华：0 注册：2022/5/7 19:05:00

Post By：2022/5/21 20:05:00 [只看该作者]

Select Case e.DataCol.name
    Case "进料检验单_入厂时间","进料检验单_报检时间"
        Dim dr As DataRow = e.DataRow
        Dim dl As Date = dr("进料检验单_报检时间")
        Dim dk As Date = dr("进料检验单_入厂时间")

        If dr.IsNull(dl ) Or dr.IsNull(dk ) Then
            dr("进料检验单_工期完成") = Nothing
        ElseIf dl > = dk Then
            dr("进料检验单_工期完成") = "0"
        Else
            dr("进料检验单_工期完成") = "1"
        End If
    End Select

此主题相关图片如下：418.png

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/22 20:04:00 [只看该作者]

Select Case e.DataCol.name
    Case "进料检验单_入厂时间","进料检验单_报检时间"
        Dim dr As DataRow = e.DataRow
Dim dl As Date = dr("进料检验单_报检时间")
        Dim dk As Date = dr("进料检验单_入厂时间")

        If dr.IsNull("进料检验单_报检时间") Orelse dr.IsNull("进料检验单_入厂时间") Then
            dr("进料检验单_工期完成") = Nothing
        ElseIf dl > = dk Then
            dr("进料检验单_工期完成") = "0"
        Else
            dr("进料检验单_工期完成") = "1"
        End If
    End Select

下一主题 >> << 上一主题

主题：时间加减