以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]时间比较问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76575)

--  作者:xianzheng
--  发布时间:2015/11/1 9:21:00
--  [求助]时间比较问题

 [求助]时间比较问题:

主表有”工作安排时间“列,关联明细表有“分工安排时间”列,要求“分工安排时间”必须小于”工作安排时间“,下面代码不知道哪里有错,运行失效

If e.DataCol.Name = "分工安排时间" AndAlso e.NewValue <> Nothing Then
    Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("工作任务")
    For Each dr As  DataRow  In drs
        If e.NewValue < dr("安排时间") And  e.NewValue <> Nothing Then
            Dim result As  DialogResult
            result = MessageBox.Show("不能小于主表的\'安排时间\'", "提示",MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            e.DataRow("分工安排时间") = Nothing
            e.cancel = True
            Exit  For
        End If
    Next
End If

 


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

--  作者:czy
--  发布时间:2015/11/1 13:52:00
--  

你代码写在子表的话应该这样吧

 

Dim pr As DataRow = e.DataRow.GetParentrow("父表名称")
If e.NewValue < pr("安排时间")
……


--  作者:xianzheng
--  发布时间:2015/11/1 15:47:00
--  
 谢谢