Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]已添加了具有相同键的项。


  共有2770人关注过本帖树形打印复制链接

主题：[求助]已添加了具有相同键的项。
帅哥哟，离线，有人找我吗？
zgjmost
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00 		[求助]已添加了具有相同键的项。  发帖心情 Post By：2018/11/4 8:40:00 [只看该作者]

已添加了具有相同键的项。

是哪里出了问题？
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2018/11/4 8:41:00 [只看该作者]

这么廖廖两句话，其他人看不出问题的。最好上实例+详细说明。

 回到顶部
帅哥哟，离线，有人找我吗？
zgjmost
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00 		  发帖心情 Post By：2018/11/4 8:51:00 [只看该作者]

Dim js1 As Integer = Tables("分考点").Rows.Count
Dim dlg As new OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
    application.DoEvents
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    StatusBar.Message1= "正在导入数据,请稍候"
    StatusBar.ProgressBar.Maximum = sheet.Rows.Count
    StatusBar.ProgressBar.Minimum = 0
    StatusBar.ProgressBar.Visible =True
    application.DoEvents
    If sheet(0,0).text <> "班号" Then
        MessageBox.Show("您的数据源不符合国家开放大学报表平台的数据格式,不能导入学生信息表数据!", "提示")
    Else
        DataTables("分考点").StopRedraw
        For i As Integer  = 1 To sheet.Rows.Count -1
            Dim dr1 As DataRow = DataTables("分考点").AddNew()
            dr1("班号") = sheet(i,0).text
            dr1("班名称") = sheet(i,1).text
            dr1("分校") = sheet(i,2).text
            StatusBar.ProgressBar.Value = i
            StatusBar.Message2= Math.Ceiling(i/sheet.Rows.Count * 100) & "%"
            application.DoEvents
        Next
        DataTables("分考点").ResumeRedraw
    End If
End If

DataTables("分考点").DeleteFor("班号 is null")

Dim js2 As Integer = Tables("分考点").Rows.Count
Dim js3 As Integer = js2 - js1

StatusBar.Message1= "祝贺您!本次共成功导入" & js3 & "条记录!"
MessageBox.Show("祝贺您!本次共成功导入" & js3 & "条记录!")

StatusBar.Reset()
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2018/11/4 9:00:00 [只看该作者]

以上代码初看不出问题，可以用MessageBox.Show分点分段测试。
或者上传实例，看看是否有其他代码关联的
 回到顶部
帅哥哟，离线，有人找我吗？
zgjmost
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00 		  发帖心情 Post By：2018/11/4 9:16:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:原始版本.rar


导入的表格在原始数据文件夹中
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2018/11/4 9:22:00 [只看该作者]

文件打不开

 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2018/11/4 9:46:00 [只看该作者]

代码没有问题，xls文件有问题。用下面这个文件是可以的。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:aa.xls
 回到顶部
帅哥哟，离线，有人找我吗？
zgjmost
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00 		  发帖心情 Post By：2018/11/4 11:16:00 [只看该作者]

这是文件

 回到顶部
帅哥哟，离线，有人找我吗？
zgjmost
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00 		  发帖心情 Post By：2018/11/4 11:16:00 [只看该作者]

这是文件
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:1黄冈本部班号(201901)订单用).xls

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:国家开放大学考务系统.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
zgjmost
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00 		  发帖心情 Post By：2018/11/4 13:18:00 [只看该作者]

什么原因？

 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 7 次数据查询