以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  时间输入提示问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89747)
--  作者：douglas738888
--  发布时间：2016/8/29 10:45:00
--  时间输入提示问题

请教老师，下面代码能实现父表和子表时间输入的提醒，如果非关联的表之间的时间提醒，应该怎样写

 

If e.DataCol.Name = "计划开始时间" AndAlso e.NewValue <> Nothing Then  \'不能小于计划开始时间
   Dim pr As DataRow = e.DataRow.GetParentRow("项目总策划")
If e.NewValue < pr("计划开始时间")
            Messagebox.Show("此处时间  不能小于项目总策划的  计划开始时间","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            e.DataRow("计划开始时间") = Nothing
            e.cancel = True
        End If
End If
--  作者：大红袍
--  发布时间：2016/8/29 10:56:00
--  
If e.DataCol.Name = "计划开始时间" AndAlso e.NewValue <> Nothing Then  \'不能小于计划开始时间
    Dim pr As DataRow = DataTables("某表").find("某列 = \'" & e.DataRow("某列") & "\'")
    If pr IsNot Nothing Then
        If e.NewValue < pr("计划开始时间")
            Messagebox.Show("此处时间  不能小于项目总策划的  计划开始时间","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            e.DataRow("计划开始时间") = Nothing
            e.cancel = True
        End If
    Else
        msgbox("没找到")
    End If
End If