- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]将excel表合并导入时，软件自动关闭退出，什么原因，请专家诊断。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108216)
-- 发布时间：2017/10/18 15:51:00
-- [求助]将excel表合并导入时，软件自动关闭退出，什么原因，请专家诊断。
上例子：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:需专家指导.zip |
-- 发布时间：2017/10/18 15:52:00
--
将息县2017病退鉴定1导入到“劳动能力鉴定”表，软件自动退出，请专家诊断一下，是什么原因？
-- 发布时间：2017/10/18 15:52:00
--
合并导入时出现问题
-- 发布时间：2017/10/18 17:06:00
--
If e.DataCol.name = "鉴定时间" Then
Dim dm As Date = e.DataRow("鉴定时间")
If e.DataRow("鉴定时间") =Nothing Then
e.DataRow("年度") =Nothing
e.DataRow("月份") =Nothing
Else
e.DataRow("年度") =dm.Year
e.DataRow("月份") =dm.month
End If
End If
If e.DataCol.name = "鉴定类别" Then
If e.DataRow("鉴定类别") Like "*因果*" Then
e.DataRow("备注") ="因果关系鉴定"
ElseIf e.DataRow("鉴定类别") Like "*器具*" Then
e.DataRow("备注") ="辅助器具鉴定"
Else
e.DataRow("备注") =Nothing
End If
End If
If e.DataCol.name = "批准日期" OrElse e.DataCol.name = "处理日期" Then
If e.DataRow("批准日期")<> Nothing Then
e.DataRow("处理日期") = e.DataRow("批准日期")
Else
e.DataRow("处理日期") = e.DataRow("处理日期")
End If
End If
http://www.foxtable.com/webhelp/scr/1522.htm
-- 发布时间：2017/10/19 7:34:00
--
谢谢你