主题：导入数据按钮代码求教？

版主，现在错到是不不报了，能导入，但一点按钮窗口表就不，就就变白，而且不是覆盖导入，还是增加导入？要重启项目，可以看到表，但刚导入的是在原有的基础上增加的

对不起，我没看到您把代码重写了

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,0).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

人数还是增加而不是覆盖！窗口表还变白，什么都看不到，不重启项目，就看不到数据！

 不可能是增加，若是增加，看身份证号码那里是不是有些问题

 

 看23楼

现在不报错也不白屏了，但还是增加，我查了，同一个人，身份证号一样，其它列也一样，就是新导入的数据列不一样

这样试试

 

Dim dr As DataRow = DataTables("理论机考表").Find("身份证号码 = '" & sfzhm.Trim() & "'")

 

还是不行，只增加！

 

汗

 

Dim sfzhm As String = sheet(n,0).Text
        Dim dr As DataRow = DataTables("理论机考表").Find("身份证号码 = '" & sfzhm & "'")

 

改成

 

Dim sfzhm As String = sheet(n,4).Text
        Dim dr As DataRow = DataTables("理论机考表").Find("身份证号码 = '" & sfzhm & "'")

甜版厉害！谢谢！让您费心了！这样就可以了！这个“0”改“4”就这么灵？列是从－1开始算的？