.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2014.11.11.1
错误所在事件:窗口,理论考试,导入,Click
详细错误信息:
输入字符串的格式不正确。不能在 理论成绩 列中存储 <>。所需类型是 Int32。
输入字符串的格式不正确。
“导入按钮”代码:
Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("理论考试表").ResumeRedraw()
Tables("理论考试表").StopRedraw()
Dim nms() As String = {"工作单位","县公司","姓名","性别","身份证号码","文化程度","鉴定等级","申报鉴定工种","鉴定批次","申报性质","是否合格","理论考否","考试性质","年月","场次","考场","座位号","考试时间","考试地点","理论准考证号码","理论成绩","备注","照片"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim sfzhm As String = sheet(n,4).Text
Dim dr As DataRow = DataTables("理论考试表").Find("身份证号码 = '" & sfzhm & "'")
If dr Is Nothing Then '如果不存在同编号的订单
dr = DataTables("理论考试表").AddNew()
End If
For m As Integer = 0 To nms.Length - 1
If DataTables("理论考试表").DataCols(nms(m)).IsBoolean Then
If Sheet(n,m).Value = 0 Then
dr(nms(m)) = False
Else
dr(nms(m)) = True
End If
Else If DataTables("理论考试表").DataCols(nms(m)).Expression > "" Then
'表达式列
Else
dr(nms(m)) = Sheet(n,m).Value
End If
Next
Next
Tables("理论考试表").ResumeRedraw()
End If
“导出按钮”代码:
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "excel|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
Dim Book As New XLS.Book(ProjectPath & "Attachments\理论考试.xls")
Book.Build() '生成细节区
Book.Save(dlg.FileName) '保存工作簿
MessageBox.Show("保存成功" )
End If
现在的问题:由“导出”按钮导出表格后,在空白列填入相应的数据,然后再点击“导入”按钮导入,就出现最上面的错误信息,这是什么问题?
另外,如果表中如果只有一个批次的人员情况下,就不报错,能顺利导入!!!!!!!
求版主择时教!!!!!!!