以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  解锁单元格，再自动填入今天日期的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131267)
--  作者：cyrollin
--  发布时间：2019/2/21 17:15:00
--  解锁单元格，再自动填入今天日期的问题
If e.DataCol.name = "今天日期" Then 
Dim nt As Integer = e.DataTable.Compute("Max(编号)") -3
If e.DataRow("编号") > nt And e.DataRow.Isnull("第一列") = False   \'编号小于nt，今天日期单元格全部锁定，大于NT并且第一列不为空，此单元格解锁可编辑
   e.cancel = False
  e.DataRow("今天日期") = Date.Today()
End If
End If

这个功能没实现，哪里错了呢， DEAR甜。
--  作者：有点蓝
--  发布时间：2019/2/21 17:29:00
--  
StartEdit事件

    If e.Col.Name = "今天日期" Then
        Dim nt As Integer = e.Table.DataTable.Compute("Max(编号)") -3
        If e.Row("编号") < nt OrElse e.Row.Isnull("第一列")   \'编号小于nt,今天日期单元格全部锁定,大于NT并且第一列不为空,此单元格解锁可编辑
            e.cancel = False
        End If
    End If
--  作者：cyrollin
--  发布时间：2019/2/21 18:36:00
--  
谢谢，可以了， 我以为直接在datacolchanged事件里面添加代码就可以了，结果不是这样。
--  作者：有点蓝
--  发布时间：2019/2/21 20:17:00
--  
不同的事件有不同的用处，不然又何必搞这么多事件