Foxtable(狐表)用户栏目专家坐堂 → 关于 网络环境中避免多人同时编辑的问题


  共有8185人关注过本帖树形打印复制链接

主题:关于 网络环境中避免多人同时编辑的问题

帅哥哟,离线,有人找我吗?
superman430
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:125 积分:1935 威望:0 精华:0 注册:2012/4/9 1:21:00
关于 网络环境中避免多人同时编辑的问题  发帖心情 Post By:2013/3/22 10:01:00 [显示全部帖子]

If User.Roles = "实习生" Then
    MessageBox.Show("实习生无权查看业务详情!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Dim cmd As New SQLCommand
    cmd.C
    Dim exp As String  = "当前编辑 Is Null And [_Identify] = " & e.Row("_Identify")
    cmd.CommandText = "Update {业务表} Set 当前编辑 = '" & User_Name & "' Where " & exp
    If cmd.ExecuteNonQuery = 1 Then '修改行数
        e.Row("当前编辑") = User_Name
        e.Row.Save()
        Forms("业务信息窗口").Open
    Else
        cmd.CommandText = "Select 当前编辑 From {业务表} Where [_Identify] = " & e.Row("_Identify")
        Dim nm As String = cmd.ExecuteScalar
        If nm > "" Then
            MessageBox.show(nm & "正在编辑此行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            MessageBox.show("此行可能已经被删除,无法编辑!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    End If
End If

 

为什么实际运行过程中,有的业务记录会提示此行可能已经被删除,无法编辑!,而有的又正常呢?


 回到顶部