独占编辑 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 独占编辑

共有7649人关注过本帖树形打印复制链接主题：独占编辑

ycwk

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00

独占编辑

Post By：2018/1/29 14:27:00 [显示全部帖子]

http://www.foxtable.com/webhelp/scr/3007.htm

是不是如果需要使用openQQ进行独占编辑的话，必须另外写一个服务器端的程序放在数据库服务器上运行？ (注：我现在通过客户端直连数据库)

[此贴子已经被作者于2018/1/29 14:27:58编辑过]

ycwk

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2018/1/29 15:48:00 [显示全部帖子]

和之前的独占方式比有什么优势呢？

ycwk

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2018/1/29 16:08:00 [显示全部帖子]

我想通过openQQ协作编辑word文档，可以用这种方法实现对 .docx文档的独占编辑吗？（把word文档存在表中的附件列）

[此贴子已经被作者于2018/1/29 16:15:57编辑过]

ycwk

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2018/1/29 17:16:00 [显示全部帖子]

怎么写服务端代码最少？客户端呢？我只需要协作编辑啊，不需要QQ聊天的功能

ycwk

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2018/1/29 17:38:00 [显示全部帖子]

还想请问一下，关闭word, foxtable能感知到吗？还是只能用上面提到的定时器的方法？

如果文件是放在ftp服务器上 172.16.16.16 user password 协作文档.docx

检测附件列中的文档被打开和关闭的代码怎么写？(基于casestudy文件夹下的例子：独占式编辑一)

[此贴子已经被作者于2018/1/29 17:46:23编辑过]

ycwk

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2018/1/29 17:55:00 [显示全部帖子]

我试了下， ftp://172.16.5.89/182004.txt 替换上面的 d:\test.doc 这样打开文档是不行的，因为foxtable好像将ftp上的文档缓存到本地了，如何检测呢？

ycwk

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2018/1/29 18:10:00 [显示全部帖子]

我是要检测附件列中的文件是否被打开呀，你用vars("ls").add("文档1",system.Diagnostics.Process.Start("D:\foxtable\Development\CaseStudy\RemoteFiles\协作文档.docx")) 代码不是直接帮用户打开182004.txt了吗？

此主题相关图片如下：1.png

[此贴子已经被作者于2018/1/29 18:15:18编辑过]

ycwk

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2018/1/30 8:57:00 [显示全部帖子]

问题一：

我要独占编辑的文档放在FTP服务器上，请问路径是要写FTP的，还是RemoteFiles文件夹的？

问题二：

我在BeforeOpenFiles 事件里面写如下代码，但是我点击文件管理器里的文件打开时，会打开两份文档。

vars("ls") = new Dictionary(of String, object)

vars("ls").add("xxx",system.Diagnostics.Process.Start("D:\foxtable\Development\CaseStudy\RemoteFiles\182004.txt"))

[此贴子已经被作者于2018/1/30 9:05:54编辑过]

ycwk

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2018/1/30 9:37:00 [显示全部帖子]

怪事，由于我的文档是放在FTP上面，故附件列存放的是 //协作文档.docx 但是通过 str_path.Trim 或Trimstart（“//”）都无法去掉前面的// ，咋回事？

If e.DataCol.Name = "附件" Then

Dim Proc As New Process '定义一个新的Process

Dim str_path As String = e.FileName

'Proc.File = "D:\foxtable\Development\CaseStudy\RemoteFiles\" & str_path.SubString(e.FileName,2) '指定要打开的文件

msgbox(str_path)

str_path.Trim("/")

msgbox(str_path)

end if

ycwk

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2018/1/30 10:37:00 [显示全部帖子]

脑袋想破了，现在倒是可以检测出谁在编辑，但没法检测文档关闭。请老师帮忙改改代码可以吗？

If e.DataRow("编辑者") = User.Name Then '如果编辑者是当前用户

Return

End If

Dim cmd As New SQLCommand

Dim exp As String = "编辑者 Is Null And [_Identify] = " & e.DataRow("_Identify")

cmd.CommandText = "U pdate {员工} Set 编辑者 = '" & User.Name & "' Where " & exp

If cmd.ExecuteNonQuery = 1 Then

e.DataRow("编辑者") = User.Name

Else

cmd.CommandText = " S el ect 编辑者 From {员工} Where [_Identify] = " & e.DataRow("_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

下一主题 >> << 上一主题

总数 38 1 2 3 4 下一页

主题：独占编辑