设置PrepareEdit事件,即可禁止修改非当天的数据:
If e.Row.IsNull("日期") = False Then If e.Row("日期") <> Date.Today Then e.Cancel = True End IfEnd If