Foxtable(狐表)用户栏目专家坐堂 → 多用户使用环境下:想在编辑一条记录的时候判断当前记录是否(有可能已被其他用户删除)存在,若存在则允许编辑,若不存在则给现提示


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

主题:多用户使用环境下:想在编辑一条记录的时候判断当前记录是否(有可能已被其他用户删除)存在,若存在则允许编辑,若不存在则给现提示

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


加好友 发短信
等级:幼狐 帖子:122 积分:852 威望:0 精华:0 注册:2013/3/16 9:52:00
多用户使用环境下:想在编辑一条记录的时候判断当前记录是否(有可能已被其他用户删除)存在,若存在则允许编辑,若不存在则给现提示  发帖心情 Post By:2013/3/16 20:20:00 [只看该作者]

多用户使用环境下:想在编辑一条记录的时候判断当前记录是否(有可能已被其他用户删除)存在,若存在则允许编辑,若不存在则给现提示

[此贴子已经被作者于2013-3-16 20:20:23编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
晕了快扶我
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1207 积分:7224 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2013/3/16 21:30:00 [只看该作者]

用SQL的command语句,例子

Dim cmd As New SQLCommand
Dim
nm As String  = "贺辉"
cmd
.ConnectionName = "User"
cmd.CommandText =
"Select Count(*) From {Users} Where Name = '" & nm & "'"
If
cmd.ExecuteScalar > 0 Then
    Messagebox.Show(
"已经存在同名用户","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If


 回到顶部
帅哥哟,离线,有人找我吗?
ft20130316
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:122 积分:852 威望:0 精华:0 注册:2013/3/16 9:52:00
  发帖心情 Post By:2013/3/16 21:40:00 [只看该作者]

貌似只能用此方法:
If e.Table.Current Is Nothing Then '如果Current为Nothing
    '没有选定行时执行的代码
Else
    Dim cmd As New SQLCommand
    cmd.C
    cmd.CommandText ="Select Count(*) From {a1} Where c1 = '" & e.Table.Current("c1") & "'"
    If cmd.ExecuteScalar = 0 Then
        Messagebox.Show("当前记录已被删除","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
晕了快扶我
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1207 积分:7224 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2013/3/16 22:19:00 [只看该作者]

能达成效果就行图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
ft20130316
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:122 积分:852 威望:0 精华:0 注册:2013/3/16 9:52:00
  发帖心情 Post By:2013/3/16 23:47:00 [只看该作者]

谢谢!

 回到顶部