- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]已添加了具有相同键的项。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127052)
-- 发布时间：2018/11/4 8:40:00
-- [求助]已添加了具有相同键的项。
已添加了具有相同键的项。
是哪里出了问题？
-- 发布时间：2018/11/4 8:41:00
--
这么廖廖两句话，其他人看不出问题的。最好上实例+详细说明。
-- 发布时间：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()
-- 发布时间：2018/11/4 9:00:00
--
以上代码初看不出问题，可以用MessageBox.Show分点分段测试。
或者上传实例，看看是否有其他代码关联的
-- 发布时间：2018/11/4 9:16:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:原始版本.rar |
导入的表格在原始数据文件夹中
-- 发布时间：2018/11/4 9:22:00
--
文件打不开
-- 发布时间：2018/11/4 9:46:00
--
代码没有问题，xls文件有问题。用下面这个文件是可以的。
-- 发布时间：2018/11/4 11:16:00
--
这是文件
-- 发布时间：2018/11/4 11:16:00
--
这是文件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:1黄冈本部班号(201901)订单用).xls |
-- 发布时间：2018/11/4 13:18:00
--
什么原因？