请教各位高手,在窗口中有一个表和表中某一列对应的文件管理器录入窗口,现在想将凡是录入时间超过一天的行对应的文件管理器中的删除和清除功能关闭,只允许当天的才可以进行删除或清除。参照甜版上次的例子,但总是不行,程序运行确实取消了删除和清除功能,但是对于当天录入行,却无法恢复删除和清除功能,编码如下,请高手指点
Afterload:
Dim fm As WinForm.FileManager =
e.Form.Controls("FileManager1")
Dim tv As Date = Tables("监造日志").Current("填报日期")
Dim tp As TimeSpan = Date.Today - tv
If tp.TotalDays >= 1 Then '如果订单已经超过1天
e.Form.controls("TextBox1").Enabled=False
fm.DeleteCommand.Visible = False
fm.ClearCommand.Visible = False
Else
e.Form.controls("TextBox1").Enabled=True
fm.DeleteCommand.Visible = true
fm.ClearCommand.Visible = true
End If