主题：本机没问题，发布后在其他电脑上报错

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 中，发布后 在其他电脑上报错

 

http://jingyan.baidu.com/article/647f0115925aee7f2148a8b5.html