各位老师下午好！在下面的代码中：e.DataRow("文号") = qz & "【" & nh & "】" & xh & "号" 这段在dr找到重复行和未找到重复行，都被执行了，我本意是想如果找到了相同行的话，就将文件序号清空并退出这段代码，可是在运行时，在提示“此文号已经存在！”并清空文件序号单元格后，还是将“文号”组合填入了，不知错在哪儿，请老师帮我修改并精简一下下面的代码，谢谢！！
If e.DataCol.name ="文件序号" Then
Dim qz As String = e.DataRow("文号前缀")
Dim nh As String = e.DataRow("年号")
Dim xh As String = e.DataRow("文件序号")
Dim wh As String = qz & "【" & nh & "】" & xh & "号"
Dim dr As DataRow = e.DataTable.Find("文号 = '" & wh & "'")
MessageBox.show(wh)
If dr IsNot Nothing Then
MessageBox.Show("此文号已经存在!")
e.DataRow("文件序号") = Nothing
e.Cancel = True
Else
e.DataRow("文号") = qz & "【" & nh & "】" & xh & "号"
End If
End If
加好友 
发短信
Post By：2019/3/27 16:54:00 [显示全部帖子]
