- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]数据导入和保存问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49057)
-- 发布时间：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:00
--
呵呵,肯定有你妹发现而已.
-- 发布时间：2014/4/11 14:22:00
--
我已经显示详细信息打钩了，问题我是解决了，但是不明白为什么会这样的，我把外部excel数据中的有一列“件号”，删除，重新输入数据，导入，可以的，但是我看来看去原本的件号列没有问题，和代码也没有数值上的关系。还有第二种解决方法是，我把这句代码：dr("分类号") = 1 Or dr("分类号") = 2 Or dr("分类号") = 3 Or dr("分类号") = 4 数字全部加上引号，变成dr("分类号") = "1" Or dr("分类号") = "2" Or dr("分类号") = "3" Or dr("分类号") = "4"，这样数据也可以正常导入的，看不明白报错的原因。
-- 发布时间：2014/4/11 14:28:00
--
说明dr("分类号") 是字符串列,并且有可能是空值.
-- 发布时间：2014/4/11 14:31:00
--
对，是字符串列，但是外部数据导入不是有个预览的窗口的，我每行都看了，分类号非空的，另外我也试过了，分类号这列不导入，同样报错，只要把件号这列删除，才正常导入。很奇怪
把原始数据也发上来
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:原始数据.xls |
-- 发布时间：2014/4/11 14:34:00
--
你这里用它来判断了,只要执行到这行代码就会报错.
-- 发布时间：2014/4/11 14:37:00
--
可是删除件号列为什么导得进的，我以前的数据一直导得进的，就今天出现。
-- 发布时间：2014/4/11 14:40:00
--
例子发上来看看,不过既然是字符串列,当然要当作字符串对比.正常的写法就应该加双引号.
-- 发布时间：2014/4/11 14:49:00
--
链接内网数据源的，不上例子了，一般这种情况出现比较少，大多excel中格式输的正确都不会这样的，有些人在EXcel中录入数据时，某列有好几种格式，导入就可能有问题。