以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请教独占编辑 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43316) |
-- 作者:seintfei -- 发布时间:2013/12/4 11:42:00 -- 请教独占编辑 局域网中多人同时编辑,参考帮助文件,找到独占编辑,请问是不是每个表都要设定代码?“给表增加一个字符列,名为"编辑者",用于记录正在编辑某行数据的用户名”? |
-- 作者:Bin -- 发布时间:2013/12/4 11:43:00 -- 是的. |
-- 作者:zpx_2012 -- 发布时间:2013/12/4 13:52:00 -- 这种独暂式的操作方式和数据库的行锁有什么不同? 数据库的行锁可以用在ft里面吗,要怎么用? |
-- 作者:seintfei -- 发布时间:2013/12/4 18:21:00 -- 出错了!!请问怎么解决?用的是外部数据源。。 此主题相关图片如下:3.jpg |
-- 作者:有点酸 -- 发布时间:2013/12/4 18:26:00 -- http://www.foxtable.com/help/topics/2344.htm
|
-- 作者:seintfei -- 发布时间:2013/12/4 18:53:00 -- If e.Row("编辑者") = User.Name Then \'如果编辑者是当前用户 Return End If Dim cmd As New SQLCommand Dim exp As String = "编辑者 Is Null And [_Identify] = " & e.Row("_Identify") cmd.C cmd.CommandText = "Update {客户} Set 编辑者 = \'" & User.Name & "\' Where " & exp If cmd.ExecuteNonQuery = 1 Then e.Row("编辑者") = User.Name 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 e.Cancel = True \'取消编辑 End If 请指正。。。代码屏蔽了
[此贴子已经被作者于2013-12-4 18:55:08编辑过]
|
-- 作者:有点甜 -- 发布时间:2013/12/4 19:06:00 -- 可能原因: 你建在access数据库里的表名字不叫 客户 你没有在access数据库里建表,而是在内部数据库里建表了。
|
-- 作者:seintfei -- 发布时间:2013/12/4 19:12:00 -- 名字一样的 此主题相关图片如下:4.jpg |
-- 作者:seintfei -- 发布时间:2013/12/4 19:39:00 -- 问题解决了 BeforeSaveDataRow 事件漏了设置数据源名称 谢谢大家的帮助
|
-- 作者:有点甜 -- 发布时间:2013/12/4 19:43:00 -- 用7楼的代码,现在还是提示4楼的错误吗?不可能的,如果可以,上传一个例子看看。 |