- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 本机没问题，发布后在其他电脑上报错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=77737)
-- 发布时间：2015/11/24 14:11:00
-- 本机没问题，发布后在其他电脑上报错
Forms("窗口1").Open
Dim dr1 As DataRow= DataTables("提醒表").DataRows(0)
Dim i As Integer= dr1("合同提醒天数")
Dim dt As Date = Date.Today.AddDays(i)
Dim dr As DataRow = DataTables("员工表").Find("合同截止日期 <= #" & dt & "#")
If dr IsNot Nothing Then
PopMessage("有即将合同到期的员工合同,请注意!","温馨提示", PopIconEnum.Error, 15)
Forms("合同到期提醒").open
\'MessageBox.Show("有劳动合同即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
\'Tables("员工表").Filter = "合同截止日期 <= #" & dt & "#"
\'MainTable = Tables("员工表")
End If
在AfterOpenProject 中，发布后 在其他电脑上报错
Dim dr1 As DataRow= DataTables("提醒表").DataRows(0)
Dim i As Integer= dr1("合同提醒天数")
Dim dt As Date = Date.Today.AddDays(i)
Dim dr As DataRow = DataTables("员工表").Find("合同截止日期 <= #" & dt & "#")
If dr IsNot Nothing Then
PopMessage("有即将合同到期的员工合同,请注意!","温馨提示", PopIconEnum.Error, 15)
Forms("合同到期提醒").open
\'MessageBox.Show("有劳动合同即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
\'Tables("员工表").Filter = "合同截止日期 <= #" & dt & "#"
\'MainTable = Tables("员工表")
End If
在AfterOpenProject 中，发布后 在其他电脑上报错
此主题相关图片如下：qq图片20151124141106.png
[此贴子已经被作者于2015/11/24 14:11:45编辑过]
-- 发布时间：2015/11/24 14:25:00
--
设置成短日期
-- 发布时间：2015/11/27 9:14:00
--
在客户机上修改了 ，但还是报错，同样的提示
-- 发布时间：2015/11/27 9:17:00
--
如果你是取本机的问题，避免每个都要修改，你可以在打开项目的时候把本机的时间格式给更改了，但是W7以上需要管理权限才可以，你可以做个批处理，首先获取管理权限
-- 发布时间：2015/11/27 9:50:00
--
以下是引用aidimeng在2015/11/27 9:14:00的发言：
在客户机上修改了 ，但还是报错，同样的提示
修改成短日期以后，就不可能报错，报错就是你没有修改正确