- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口文件管理器的权限设置问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58220)
-- 发布时间：2014/10/14 9:43:00
-- 窗口文件管理器的权限设置问题
请教各位高手，在窗口中有一个表和表中某一列对应的文件管理器录入窗口，现在想将凡是录入时间超过一天的行对应的文件管理器中的删除和清除功能关闭，只允许当天的才可以进行删除或清除。参照甜版上次的例子，但总是不行，程序运行确实取消了删除和清除功能，但是对于当天录入行，却无法恢复删除和清除功能，编码如下，请高手指点
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
-- 发布时间：2014/10/14 10:10:00
--
你要在行切换事件 CUrrentChanged事件,也要写入此代码
-- 发布时间：2014/10/14 10:17:00
--
甜版，窗口事件中没有 CUrrentChanged呀！
-- 发布时间：2014/10/14 10:18:00
--
写到表属性的事件里面去。
-- 发布时间：2014/10/14 10:18:00
--
是表的事件
-- 发布时间：2014/10/14 10:46:00
--
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.9.23.1
错误所在事件：监造日志,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例。
甜版，在表事件中设置后却出错？
-- 发布时间：2014/10/14 10:49:00
--
If Forms("窗口1").Opened Then
Dim fm As WinForm.FileManager = Forms("窗口1").Controls("FileManager1")
Dim tv As Date = Tables("监造日志").Current("填报日期")
Dim tp As TimeSpan = Date.Today - tv
If tp.TotalDays >= 1 Then \'如果订单已经超过1天
forms("窗口1").controls("TextBox1").Enabled=False
fm.DeleteCommand.Visible = False
fm.ClearCommand.Visible = False
Else
forms("窗口1").controls("TextBox1").Enabled=True
fm.DeleteCommand.Visible = True
fm.ClearCommand.Visible = True
End If
End If
-- 发布时间：2014/10/14 11:06:00
--
甜版，谢谢了，你一出手，问题重视迎刃而解！
