主题：[求助]if……else后总被执行的代码问题？

代码没问题，请上传具体实例测试。

谢谢甜老师！！我将项目呈上，麻烦帮我看看，目前问题有两个：问题一，是在双击表行进入“文件登记”窗口后，修改“文件序号”后，只要是有相同“文号”，会返回去执行两次；问题二，在窗口中修改原有行时内容时，有时窗口上输入了，但不会将修改的内容加到表中去。还谢老师指导！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:文件管理.foxdb

1、

 

If e.DataCol.name ="文件序号" Then
    Dim dr As DataRow=e.DataRow
    If dr.Isnull("文号前缀") Then
        MessageBox.Show("文号前缀和文件年号不能为空值!", "提示")
        e.Cancel = True
    End If
    'Else
    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 & "号"
    MessageBox.show(wh)
    Dim dr1 As DataRow = e.DataTable.Find("文号 = '" & wh & "'")
systemready = False
    If dr1 IsNot Nothing Then
        MessageBox.Show("此文号已经存在!")
        e.DataRow("文件序号") = Nothing
        e.Cancel = True
        'ElseIf dr Is Nothing Then
    Else
        e.DataRow("文号") = qz & "【" & nh & "】" & xh & "号"
        'e.DataRow("登记人") = _username
        'e.DataRow("登记时间") = Date.now
    End If
systemready = True
End If

 

2、

 

e.cancel = True
Forms("文件登记").Open()