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


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

主题:加时间

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


加好友 发短信
等级:童狐 帖子:283 积分:2118 威望:0 精华:0 注册:2011/12/15 11:49:00
加时间  发帖心情 Post By:2012/2/29 10:24:00 [只看该作者]

狐爸及各位老师好!我有个加时间段的代码,不反应,麻烦各位帮我看看:

 

Dim dc As DataCol = e.DataCol
Dim dr As DataRow = e.DataRow
If dc.Name = "起始T点" OrElse dc.Name = "生产作业安排_用时长m"Then
    If dr.IsNull("起始T点") OrElse dr.IsNull("生产作业安排_用时长m") Then
        dr("生产作业安排_结束T点") = Nothing
    Else
        dr("生产作业安排_结束T点") = dr("起始T点").AddMinutes(dr("生产作业安排_用时长m"))
    End If
End If

其中 "生产作业安排_用时长m"是表达式,我也知道表达式不能触发事件,看有没有什么办法让上述代码变通一下

希望得到 09:15(起始T点)+130分钟(生产作业安排_用时长m)=11:25 的结果


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/2/29 10:29:00 [只看该作者]

假定“生产作业安排_用时长m”是通过名为A、B的两列计算得出,你的代码应该改为:

 

Dim dc As DataCol = e.DataCol
Dim dr As DataRow = e.DataRow
Select Case dc.Name
    Case "起始T点","A","B"
        If dr.IsNull("起始T点") OrElse dr.IsNull("生产作业安排_用时长m") Then
            dr("生产作业安排_结束T点") = Nothing
        Else
            dr("生产作业安排_结束T点") = dr("起始T点").AddMinutes(dr("生产作业安排_用时长m"))
        End If
End Select


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


加好友 发短信
等级:童狐 帖子:283 积分:2118 威望:0 精华:0 注册:2011/12/15 11:49:00
  发帖心情 Post By:2012/2/29 11:41:00 [只看该作者]

多谢老师费心了,可以了

 回到顶部