- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 多用户使用环境下：想在编辑一条记录的时候判断当前记录是否（有可能已被其他用户删除）存在,若存在则允许编辑，若不存在则给现提示 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=29930)
-- 发布时间：2013/3/16 20:20:00
-- 多用户使用环境下：想在编辑一条记录的时候判断当前记录是否（有可能已被其他用户删除）存在,若存在则允许编辑，若不存在则给现提示
多用户使用环境下：想在编辑一条记录的时候判断当前记录是否（有可能已被其他用户删除）存在,若存在则允许编辑，若不存在则给现提示 |
[此贴子已经被作者于2013-3-16 20:20:23编辑过]
-- 发布时间：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
-- 发布时间：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
-- 发布时间：2013/3/16 22:19:00
--
能达成效果就行
-- 发布时间：2013/3/16 23:47:00
--
谢谢！