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


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

主题:独占编辑

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/31 17:30:00 [只看该作者]


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


加好友 发短信
等级:六尾狐 帖子:1218 积分:8445 威望:0 精华:0 注册:2016/2/2 21:52:00
  发帖心情 Post By:2018/2/1 14:50:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


为了防止别人把文件下载下来,在本地编辑好了,再上传至服务器上,程序怎么控制,普通人只能打开,不能插入文件、插入目录以及清除内容?  
[此贴子已经被作者于2018/2/1 14:50:19编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/1 15:11:00 [只看该作者]

 参考

 

下载信息  [文件大小:308.0 KB  下载次数:4]
图片点击可在新窗口打开查看点击浏览该文件:文件按钮_例子.table


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


加好友 发短信
等级:六尾狐 帖子:1218 积分:8445 威望:0 精华:0 注册:2016/2/2 21:52:00
  发帖心情 Post By:2018/2/1 16:29:00 [只看该作者]


.NET Framework 版本:2.0.50727.8825
Foxtable 版本:2017.12.18.1
错误所在事件:计划检测协作文件开关状态
详细错误信息:
未设置对象变量或 With 块变量。

用如下定时器代码,偶尔启动程序会报上面的错误,咋回事?

For Each key As String In vars("ls").keys
    try
       '如果是当前用户退出编辑文档,则try语句可以正常执行
        vars("ls")(key).ExitTime 
        Dim dr As DataRow= DataTables("文件协作表").SQLFind("[_identify]=" & key )     
        '以下代码为删除关闭的文件的编辑人  ,
         If dr IsNot Nothing And dr("编辑者")=User.Name Then                   ' 如果编辑者是当前用户(表示是当前用户退出了编辑文档),则修改当前编辑者为空
         Dim cmd As New SQLCommand
         cmd.C
         cmd.CommandText = "U  pdate {文件协作表} Set 编辑者 = Null Where [_identify] = " & key            ' e.DataRow("_Identify")
            If cmd.ExecuteNonQuery = 1 Then
               '  e.DataRow("编辑者") = Nothing
               'Dim dr As DataRow= DataTables("员工").SQLFind("_identify='" & key & "'"   )
               dr("编辑者")=Nothing
            End If
         End If 
      '  msgbox(key & ":正常关闭,并删除编辑人")
    catch ex As exception    '如果当前用户没有退出编辑的文档,则执行以下代码
     '   msgbox(key & ":正常打开")
    End try
Next

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/1 16:32:00 [只看该作者]

If dr IsNot Nothing And dr("编辑者")=User.Name Then     

 

改成

 

If dr IsNot Nothing Andalso dr("编辑者")=User.Name Then     


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


加好友 发短信
等级:六尾狐 帖子:1218 积分:8445 威望:0 精华:0 注册:2016/2/2 21:52:00
  发帖心情 Post By:2018/2/1 17:16:00 [只看该作者]

and andalso有什么区别?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/1 17:19:00 [只看该作者]

以下是引用ycwk在2018/2/1 17:16:00的发言:
and andalso有什么区别?

 

当没有找到数据的时候,dr是nothing,引用值就会报错

 

参考 http://www.foxtable.com/webhelp/scr/0220.htm

 


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


加好友 发短信
等级:六尾狐 帖子:1218 积分:8445 威望:0 精华:0 注册:2016/2/2 21:52:00
  发帖心情 Post By:2018/2/4 17:56:00 [只看该作者]

为什么编辑者字段, 如果是自己打开, 点“刷新” 按钮, 编辑者字段就会消失。  如果是别人打开,编辑者字段仍然会保留,咋回事?


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/2/4 17:57:27编辑过]

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


加好友 发短信
等级:六尾狐 帖子:1218 积分:8445 威望:0 精华:0 注册:2016/2/2 21:52:00
  发帖心情 Post By:2018/2/4 18:06:00 [只看该作者]

刷新的代码
Dim t As Table = Tables("表A")
Dim temp As String = t.Filter
t.DataTable.Load
t.Filter = temp

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/4 20:14:00 [只看该作者]

没看懂你意思。请上传实例具体说明问题。


 回到顶部
总数 70 上一页 1 2 3 4 5 6 7 下一页