主题：[求助]在表事件写锁定日期小于当天日期行的代码

用的sql外部源。还是有问题。刷新后又能录入了。 谢谢帮助

那位哥。麻烦解决一哈嘛

 

 你说的刷新是什么意思？

 核心代码是这样。

For Each dr As DataRow In DataTables("表A").DataRows
    If dr.Isnull("第一列") = False And dr("第一列") < Date.Today()
        dr.Locked = True
    End If
Next

内部数据可以，用在外部源就不行了。

 

内部数据可以，用在外部源就不行了。

 

For Each dr As DataRow In DataTables("表A").DataRows
If dr.Isnull("第一列") = False And dr("第一列") < Date.Today()
dr.Locked = True
End If
Next

用的 外部源这个代码中的增加("表A"），("表B")，("表C")，("表D").

 

For Each dr As DataRow In DataTables("表A"），("表B")，("表C")，("表D").DataRows
If dr.Isnull("第一列") = False And dr("第一列") < Date.Today()
dr.Locked = True
End If

这样写是不对的哈？？？？？？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目25.table

 这样写吧。

Dim dt_names() As String = {"表a", "表b", "表C"}

For Each dt_name As String In dt_names
    For Each dr As DataRow In DataTables(dt_name).DataRows
        If dr.Isnull("第一列") = False And dr("第一列") < Date.Today()
            dr.Locked = True
        End If
    Next
Next

还是一刷新加载树。锁定就失效了。哎！！

 

 你在该表的表事件，afterLoad中写入如下代码。

 For Each dr As DataRow In e.DataTable.DataRows
     If dr.Isnull("第一列") = False And dr("第一列") < Date.Today()
         dr.Locked = True
     End If
 Next

非常感谢。已解决！1