Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter = "excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("基本信息").StopRedraw()
Dim nms() As String = {"棋赛名称", "棋赛副名", "编号", "姓名", "身份"}
Dim i1 As Integer = Array.Indexof(nms, "棋赛名称")
Dim i2 As Integer = Array.Indexof(nms, "编号")
Dim i3 As Integer = Array.Indexof(nms, "姓名")
For n As Integer = 1 To Sheet.Rows.Count - 1
Dim bh1 As String = sheet(n, i1).Text
Dim bh2 As Integer = sheet(n, i2).Value
Dim bh3 As String = sheet(n, i3).Text
Dim dr As DataRow = DataTables("基本信息").SQLFind("[棋赛名称] = '" & bh1 & "' And [编号] =" & bh2 & " And [姓名] = '" & bh3 & "'")
If dr Is Nothing Then '如果基本信息表不存在同一棋赛名称、编号、姓名的行
dr = DataTables("基本信息").AddNew()
End If
For m As Integer = 0 To nms.Length - 1
dr(nms(m)) = Sheet(n, m).Value
Next
Next
Tables("基本信息").ResumeRedraw()
End If
安这代码导入,出现
此主题相关图片如下:微信图片_20240313205449.png

excel格式是从Foxtable中以Excel格式导出基本信息表上的数据,删除数据后录入新数据再导入进行测试,结果出现上面的报错。
[此贴子已经被作者于2024/3/14 0:03:18编辑过]