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


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

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


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

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

是哪里出了问题？
 回到顶部
帅哥哟，离线，有人找我吗？
zgjmost
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()
 回到顶部
帅哥哟，离线，有人找我吗？
zgjmost
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


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


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

这是文件

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


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

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

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


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

什么原因？

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


加好友 发短信
等级：一尾狐 帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00 		  发帖心情 Post By：2018/11/4 22:13:00 [显示全部帖子]

原来的版本没这个问题，希望公司能尽快处理

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