- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 不知名的错误，不知道怎么回事，昨天打开都没这个错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170868)
-- 发布时间：2021/8/10 9:31:00
-- 不知名的错误，不知道怎么回事，昨天打开都没这个错误
不知名的错误，不知道怎么回事，昨天打开都没这个错误。
此主题相关图片如下：这个报错有隐患吗？.png
-- 发布时间：2021/8/10 9:36:00
--
afteropenproject事件代码发上来看看
-- 发布时间：2021/8/10 9:59:00
-- 这就两句
感觉是第一句出问题了，但是不知道是哪儿的问题。
Tables("人事信息").Cols("基础信息_职级").DropForm = "职位职级展示"
DataTables("人事信息").DataCols("基础信息_工龄_入职时间").RaiseDataColChanged()
-- 发布时间：2021/8/10 10:11:00
--
"人事信息"表datacolchanged事件代码发上来看看
-- 发布时间：2021/8/10 10:17:00
-- 今天的开发软件也无法进行串口预览
此主题相关图片如下：微信截图_20210810101618.png
-- 发布时间：2021/8/10 10:21:00
-- datacolchanged里面的代码
Select Case e.DataCol.name
Case "基础信息_出生年月"
If e.DataRow.IsNull("基础信息_出生年月") Then
e.DataRow("基础信息_年龄") = Nothing
Else
Dim tp As TimeSpan = Date.today - CDate(e.DataRow("基础信息_出生年月"))
e.DataRow("基础信息_年龄") = Math.Round(tp.TotalDays / 365.2422,2)
End If
End Select
Select Case e.DataCol.name
Case "基础信息_工龄_入职时间"
If e.DataRow.IsNull("基础信息_工龄_入职时间") Then
e.DataRow("基础信息_工龄_入职年限_年") = Nothing
e.DataRow("基础信息_工龄_入职年限_月") = Nothing
e.DataRow("基础信息_工龄_入职年限_日") = Nothing
Else
Dim y,m,d As Integer
DateYMD(e.DataRow("基础信息_工龄_入职时间"),Date.Today,y,m,d)
e.DataRow("基础信息_工龄_入职年限_年") = y
e.DataRow("基础信息_工龄_入职年限_月") = m
e.DataRow("基础信息_工龄_入职年限_日") = d
End If
End Select
-- 发布时间：2021/8/10 10:33:00
--
调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看afteropenproject事件哪一句代码出错
-- 发布时间：2021/8/10 10:33:00
--
关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。
-- 发布时间：2021/8/10 10:43:00
-- 正常了
按照您的提示，删除了BIN文件夹以后
重启，然后项目正常了。奇怪了。
检查了一上午没检查出来
-- 发布时间：2021/8/10 14:50:00
-- 又出现了，删除bin正常，但是不知道发布后会不会报错
又出现了，删除bin以后运行正常，过一段时间又报错，但是不知道发布后会不会报错
此主题相关图片如下：微信截图_20210810142738.png