以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  提示：不是合法的 OleAut 日期 求解！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132849)
--  作者：李孝春
--  发布时间：2019/3/31 15:50:00
--  提示：不是合法的 OleAut 日期 求解！
.NET Framework 版本：2.0.50727.8937
Foxtable 版本：2018.10.9.1
错误所在事件：
详细错误信息：
不是合法的 OleAut 日期。

代码附件：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:需要解决问题.txt
项目列子：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:信息自动化求助.zip


操作顺序：
第一次操作请打开窗体后 点清空数据按钮执行数据情况
然后点击导入：第一次选择批捕数据未审结表，然后点击按钮bt20执行告知内容生成（经过测试运行正常）
系统会生成未审结的告知内容三条记录
点击关联人管理：添加关联人信息：选择人员类型为案件关联人  输入姓名和电话号码   
点击bt20出现不是合法的 OleAut 日期的错误，取消后数据生成，但是项目关闭后，数据无法保存。


功能要求（已实现，需要解决不是合法的 OleAut 日期的错误）：
第一次导入时候，如果excel表中审结日期不为空，那么对应的数据记录不生成案件承办人的告知内容表。有案件关联人时，则生成案件关联人的的告知内容表。否则：只生成审结日期为空的告知内容表
第二次导入的时候，就不再区分审结日期为空与否了，是直接生成对应的数据记录并生成告知内容表。当有关联人时，对应生成关联人的告知内容表。 
[此贴子已经被作者于2019/4/1 1:10:01编辑过]
--  作者：有点甜
--  发布时间：2019/4/1 10:47:00
--  

修改代码

 

                For Each dr23 As DataRow In drs1
                    Dim dr22 As DataRow = DataTables("告知内容").Find("部门受案号 = \'" & r1("部门受案号") & "\'  and 姓名 =\'" & dr23("姓名") & "\'and 受理日期 = #" & r1("受理日期") & "# ")
                    If  r1("是否关联")="是" Then
                        If dr22 Is Nothing Then \'如果不存在同编号的订单
                            msgbox(333)
                            Dim r3 As Row =tb2.Table.AddNew
                            r3("部门受案号")=r1("部门受案号")
                            r3("嫌疑人姓名")=r1("嫌疑人姓名")
                            r3("是否告知")="否"
                            r3("事项理由")="请注意"
                            r3("案件状态")="审理中"
                            r3("人员类型")="案件关联人"
                            r3("涉嫌案由")=r1("涉嫌案由")
                            r3("案件类别")=r1("案件类别")
                            r3("受理日期")= r1("受理日期")
                            r3("审结日期")= r1("审结日期")

r3("到期日期") = Nothing
                            r3("姓名")=dr23("姓名")
                            r3("告知方式_邮件")="否"
                            r3("告知方式_短信")="否"
                            r3("告知方式_QQ")="否"
                            r3("告知方式_微信")="否"
                            r3("承办人")=r1("承办人")
                            r3("案件状态")= "审理中"
                            r3("序号")= r1("_identify")
                            r3.save
                        End If
                    End If
                Next