以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何列出正在独占编辑的记录?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174812)

--  作者:rogen
--  发布时间:2022/2/7 17:17:00
--  如何列出正在独占编辑的记录?
按照帮助文档写的独占编辑  http://www.foxtable.com/webhelp/index.htm?page=3007.htm 

我想列出所有正在独占编辑的记录,参考帮助文档的写法是:


3、在服务端项目的OpenQQ服务端的UserLogout事件加上代码:
Dim Keys As New List(of String)
For Each Key As String In tbrk.Keys
   If tbrk(Key) = e.UserName Then
      Keys.Add(Key)
    End If
Next
For Each Key As String In Keys
    tbrk.Remove(Key)
Next

我改为如下代码,在命令窗口里运行,报错。
Dim Keys As New List(of String)
For Each Key As String In tbrk.Keys
    Keys.Add(Key)
Next
For Each Key As String In Keys
    msgbox(key)
Next

报错截图如下:

图片点击可在新窗口打开查看此主题相关图片如下:snipaste_2022-02-07_17-15-37.png
图片点击可在新窗口打开查看

全局变量里已经定义了 Public tbrk As new List(of String)

请教要如何修改,能弹窗显示所有正在独占编辑的信息(key值)?



--  作者:有点蓝
--  发布时间:2022/2/7 17:39:00
--  

全局变量定义的是字典,不是集合


服务器端的设计

1、在服务器端项目的全局代码中,加入如下代码:

Public tbrk As new Dictionary(of String,String)


--  作者:rogen
--  发布时间:2022/2/7 17:41:00
--  

服务器端写的是集合的代码 Public tbrk As new Dictionary(of String,String)

 

是不是这个代码只能写在服务器端,不能写在客户端里?

若想在客户端里能查看有哪些独占编辑的信息,该咋办?

[此贴子已经被作者于2022/2/7 17:45:03编辑过]

--  作者:有点蓝
--  发布时间:2022/2/7 19:57:00
--  
如果是客户端,定义的是集合,直接遍历即可,不需要多此一举

For Each Key As String In tbrk
    msgbox(key)
Next

在客户端只能遍历自己独占的行,要查看所有客户端的,只能在服务端查看