主题：关于独占式编辑问题

报什么错？

此主题相关图片如下：独占报错.jpg

If tbrk.Containskey(key) = False Then

If tbrk.Containskey(key) = False Then改，报错下面

此主题相关图片如下：独占报错-2.jpg

tbrk是什么东西来的？

服务器端的设计

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

Public tbrk As new Dictionary(of String,String)

tbrk是一个字典，用于登记每一行是谁在编辑。
我们约定接下来编码的时候：字典的键由表名和行的主键组合成，值则等于编辑者名。

如果是窗口编辑

上述方案针对的是直接在表中编辑数据，如果不是在表中编辑，而是在窗口编辑，编码方式也是基本相同的。
通常只需将打开编辑窗口的代码改为：

Dim r As Row = Tables("表B").Current
If QQClient.Ready = False Then '如果QQClient没有启动,则禁止编辑
    PopMessage("必须启动QQClient,才能编辑此表数据!","提示",PopIconEnum.Infomation,5)
    Return
End If
If r.DataRow.RowState <>  DataRowState.Added Then '如果不是新增行
    Dim key As String = "表B"  & ":" & r("_Identify")
    If tbrk.Contains(key) = False Then
        Dim msg = QQClient.SendWait("?#" & Key & "#?",5) '向服务器发送请求编辑信息
        If msg = "OK" Then '如果服务器返回OK
            tbrk.Add(key) '在本地登记正在编辑此行
        ElseIf msg > "" Then '否则显示服务器返回的信息,并取消编辑
            PopMessage("无法编辑此行,因为:" & vbcrlf & msg ,"提示",PopIconEnum.Infomation,5)
            Return
        Else '如果服务器没有返回信息,则取消编辑
            PopMessage("因服务器无响应,无法编辑此行!" ,"提示",PopIconEnum.Infomation,5)
            Return
        End If
    End If
End If
Forms("编辑窗口").Open()

这个是帮助的代码

tbrk.Add(key,"某某值")