Foxtable(狐表)用户栏目专家坐堂 → [求助][跨表比较时间,表达式不会写


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

主题:[求助][跨表比较时间,表达式不会写

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


加好友 发短信
等级:小狐 帖子:356 积分:2314 威望:0 精华:0 注册:2014/10/4 9:38:00
[求助][跨表比较时间,表达式不会写  发帖心情 Post By:2015/10/31 11:37:00 [只看该作者]

 [求助][跨表比较时间,表达式不会写,"e.DataRow("分工完成时间") "提未这部分有错,但不知道如何写

If e.DataCol.Name = "完成时间" AndAlso e.NewValue <> Nothing Then  '完成时间‘是主表列
    If e.NewValue < e.DataRow("安排时间") Then
        msgbox("不能小于安排时间")
        e.cancel = True
'''''''''''''''''''''以下是明细表表达有误,代码有误''''''''''''''''''''''''''''''''''''''''''
      ElseIf e.NewValue <  e.DataRow("分工完成时间") Then  '分工完成时间’是明细表列
         msgbox("不能小于'分工完成时间'")
         e.cancel = True  
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ElseIf e.newvalue > Date.today Then
        msgbox("不能大于今天")
        e.cancel = True
    End If
End If


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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/10/31 12:01:00 [只看该作者]

一样使用GetChildRows

 

Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("工作任务明细")

For Each dr As  DataRow  In drs
    If e.NewValue < dr("分工完成时间") Then
        msgbox("不能小于'分工完成时间'")
        e.cancel = True
    End If
Next


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


加好友 发短信
等级:小狐 帖子:356 积分:2314 威望:0 精华:0 注册:2014/10/4 9:38:00
  发帖心情 Post By:2015/10/31 12:16:00 [只看该作者]

 可以了,谢谢,现在一边学边开发用,太累了,多花点时间学才行,可以工作在忙也没太多时间学

 回到顶部