Foxtable(狐表)用户栏目专家坐堂 → [求助]数据导入和保存问题


  共有3971人关注过本帖平板打印复制链接

主题:[求助]数据导入和保存问题

帅哥哟,离线,有人找我吗?
云淡风轻
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:409 积分:3022 威望:0 精华:0 注册:2012/1/19 10:11:00
[求助]数据导入和保存问题  发帖心情 Post By:2014/4/11 14:17:00 [只看该作者]

有2个问题,独立的,互不相干的。一个一个说:

 

1、外部数据源,保存的时候有时会弹出这样的警告窗口:

 


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

具体是什么原因呢?

 

2、数据导入,弹出

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140411133942.jpg
图片点击可在新窗口打开查看

 

其中s2室藏文件datacolchanged代码:


Select Case e.DataCol.Name
    Case "案卷号"
        Dim pr As DataRow = e.DataRow.GetParentRow("S1室藏案卷")
        If pr IsNot Nothing Then
            e.DataRow("全宗号") = pr("全宗号")
            e.DataRow("分类号") = pr("分类号")
            e.DataRow("年度") = pr("年度")
            e.DataRow("保管期限") = pr("保管期限")
            e.DataRow("责任者") = pr("责任者")
        End If
 Case "件号"
        Dim dr As DataRow = e.DataRow
        If dr.isnull("案卷号")=False OrElse dr("案卷号") <> "" Then
             e.DataRow("档号") = dr("案卷号") & "-" & dr("件号")
        Else
            If dr("保管期限") = "永久" Then
               If e.DataCol.Name = "分类号" OrElse e.DataCol.Name = "年度" OrElse e.DataCol.Name = "件号" Then
                  If dr("分类号") = 1 Or dr("分类号") = 2 Or dr("分类号") = 3 Or dr("分类号") = 4 Then
                     e.DataRow("档号") = dr("分类号") & "-" & dr("年度") & "Y-" & dr("件号")
                  End If
               End If
            Else If dr("保管期限") = "长期" Or dr("保管期限") = "30年" Or dr("保管期限") = "30" Or dr("保管期限") = "25年" Or dr("保管期限") = "25" Then
               If e.DataCol.Name = "分类号" OrElse e.DataCol.Name = "年度" OrElse e.DataCol.Name = "件号" Then
                  If dr("分类号") = 1 Or dr("分类号") = 2 Or dr("分类号") = 3 Or dr("分类号") = 4 Then
                     e.DataRow("档号") = dr("分类号") & "-" & dr("年度") & "C-" & dr("件号")
                  End If
                End If
            Else If dr("保管期限") = "短期" Or dr("保管期限") = "15年" Or dr("保管期限") = "15" Or dr("保管期限") = "10年" Or dr("保管期限") = "10" Then
               If e.DataCol.Name = "分类号" OrElse e.DataCol.Name = "年度" OrElse e.DataCol.Name = "件号" Then
                  If dr("分类号") = 1 Or dr("分类号") = 2 Or dr("分类号") = 3 Or dr("分类号") = 4 Then
                     e.DataRow("档号") = dr("分类号") & "-" & dr("年度") & "D-" & dr("件号")
                  End If
                End If
           End If
       End If
End Select

 

 

数据库除主键外其他字段均是字符串型的。

外部excel数据导入弹出前面的错误,我仔细检查,没有发现空数据,怎么会出现“”转换double出现错误呢?

 

[此贴子已经被作者于2014-4-11 14:18:25编辑过]

 回到顶部