主题：[求助]身份证读卡器，删除行后报错窗口如何去除

老师，好

安装身份证读卡器后，在读取身份证以后，设置了一个事件，地址重复会自动删除当前行，但删除以后，会有一个报错

虽然不影响使用，但是不是很美观。

此主题相关图片如下：身份报错.png

If e.DataCol.Name = "住址" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("住址 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        Dim Result As DialogResult
        Result = MessageBox.Show("该客户其他家庭成员已经录入系统,每个家庭只能录入一人,是否联系管理员处理", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            MessageBox.Show("系统管理员:耿伟 电话: 18616152000.","提示")
            e.Cancel = True
            With Tables("身份证到访登记系统")
                .Current.Delete()
            End With
        Else
            e.Cancel = True
            With Tables("身份证到访登记系统")
                .Current.Delete()           
            End With
        End If
    End If
End If

Dim Info As String
Info = FileSys.ReadAllText(ApplicationPath & "wz.txt", Encoding.Default) '读取生成的文本文件
info = info.Replace(vbcrlf,vblf) '将回车换行替换为换行
Dim pars() As String = Info.Split(vblf) '将读取的信息拆分为数组
Dim r As Row = Tables("身份证到访登记系统").AddNew
r("姓名") = pars(0).Trim()
r("性别") = pars(1).Trim()
r("名族") = pars(2).Trim()
r("出生日期") = pars(3).replace("年","-").Replace("月","-").Replace("日","")
r("住址") = pars(4)
r("身份证号码") = pars(5)
r("发证机关") = pars(6)
r("签发日期") = pars(7).SubString(0,10).Replace(".","-")
r("有效日期") = pars(7).SubString(11).Replace(",","-")
FileSys.CopyFile(ApplicationPath & "zp.bmp", ProjectPath & "\Attachments\" & r("身份证号码") & ".bmp",True) '照片复制到Attachments目录
r("照片") = r("身份证号码") & ".bmp"

不如增加之前就判断

Dim Info As String
Info = FileSys.ReadAllText(ApplicationPath & "wz.txt", Encoding.Default) '读取生成的文本文件
info = info.Replace(vbcrlf,vblf) '将回车换行替换为换行
Dim pars() As String = Info.Split(vblf) '将读取的信息拆分为数组

Dim dr As DataRow = DataTables("身份证到访登记系统").Find("住址 = '" & pars(4) & "'")
If dr IsNot Nothing Then
    Dim Result As DialogResult
    Result = MessageBox.Show("该客户其他家庭成员已经录入系统,每个家庭只能录入一人,是否联系管理员处理", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        MessageBox.Show("系统管理员:耿伟 电话: 18616152000.","提示")
    End If
    Return
End If

Dim r As Row = Tables("身份证到访登记系统").AddNew
r("姓名") = pars(0).Trim()
r("性别") = pars(1).Trim()
r("名族") = pars(2).Trim()
r("出生日期") = pars(3).replace("年","-").Replace("月","-").Replace("日","")
r("住址") = pars(4)
r("身份证号码") = pars(5)
r("发证机关") = pars(6)
r("签发日期") = pars(7).SubString(0,10).Replace(".","-")
r("有效日期") = pars(7).SubString(11).Replace(",","-")
FileSys.CopyFile(ApplicationPath & "zp.bmp", ProjectPath & "\Attachments\" & r("身份证号码") & ".bmp",True) '照片复制到Attachments目录
r("照片") = r("身份证号码") & ".bmp"

DataColChanged事件的代码继续保留。

你在身份读取那个地方，再加一个find函数查找是否重复。