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

按独占式编辑帮助文件给两个窗口设openqq权限，代码都一样，都放了三个表，也都是一个模式。结果一个没问题，一个提示“未将对象引用设置到对象”，代码如下，代码放在打开窗口的按钮上

Dim r As Row = Tables("发货表").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 = "发货表" & ":" & 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

Dim r1 As Row = Tables("发货表.发货订单表").Current

If QQClient.Ready = False Then '如果QQClient没有启动,则禁止编辑

PopMessage("必须启动QQClient,才能编辑此表数据!","提示",PopIconEnum.Infomation,5)

Return

End If

If r1.DataRow.RowState <> DataRowState.Added Then '如果不是新增行

Dim key As String = "发货表.发货订单表" & ":" & r1("_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

Dim r2 As Row = Tables("发货明细表").Current

If QQClient.Ready = False Then '如果QQClient没有启动,则禁止编辑

PopMessage("必须启动QQClient,才能编辑此表数据!","提示",PopIconEnum.Infomation,5)

Return

End If

If r2.DataRow.RowState <> DataRowState.Added Then '如果不是新增行

Dim key As String = "发货明细表" & ":" & r2("_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

主题：openQQ窗口权限问题