主题：OPenQQ问题

If fhs.Count > 0 AndAlso Forms("审核申请窗口").Opened = False Then
    Dim pts() As String = fhs(0).Split("|")
    fhs.RemoveAt(0)
    With Forms("审核申请窗口")
        .Open()
        .Controls("Label1").Text = pts(2) & " 新增 " & pts(1) & " 审批申请,请及时审批!"
        .Controls("Label2").Text = pts(0) '将发货单主健设置为Label2的标题
        .Controls("Label3").Text = pts(3) '表名称
    End  With
End  If

用pts(3)记录了表名，怎么处理呢？

如果 SystemIdle 报错，试试加入代码测试，看状态栏弹出什么

StatusBar.Message1 = pts.length

看10楼、12楼。

你合成的数据是什么？你要明确。你合成什么数据发过去，添加什么数据进去，你也要明确。

老师，我的想法是这样，所有审核共用一个审核申请窗口，在审核申请窗口中用"Label3"来记录表名，但不显示，点击查看按钮就可以查看对应的表的审核信息。

12楼测试，不显示结果呢

If fhs.Count > 0 AndAlso Forms("审核申请窗口").Opened = False Then
    Dim pts() As String = fhs(0).Split("|")
    fhs.RemoveAt(0)
    With Forms("审核申请窗口")
        .Open()
        .Controls("Label1").Text = pts(2) & " 新增 " & pts(1) & " 审批申请,请及时审批!"
        .Controls("Label2").Text = pts(0) '将发货单主健设置为Label2的标题
        .Controls("Label3").Text = pts(3) '表名称

       StatusBar.Message1 = pts.length
End  If

1、是否报错？报什么错？

2、执行 StatusBar.Message1 = fhs(0) 显示什么？

3、是不是你逻辑有问题？没看懂你逻辑，请做实例说明你要做什么。

老师，之前的问题解决了，在发送审核消息时，没把表名发送过去。

For Each dr As DataRow In DataTables("账号密码").sqlSelect("职务 = '经营部经理'")
    QQClient.Send(dr("机构名称") & "." & dr("姓名"),"+@|" & r("_Identify") & "|" & r("项目名称") & "|" & _UserXingMing & "|" & CurrentTable.Name,True)
Next

修改后没问题了，新问题是查看按钮找不到对应的表，

报错如下：

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

代码如下：

Dim id As String = e.Form.Controls("Label2").Text
Dim nm As String = e.Form.Controls("Label3").Text
DataTables(nm).Save()  '接下来要根据主键查找,必须先保存,因为只有保存后新增行的主键才是有效值.
Dim dr As DataRow = DataTables(nm).Find("[_Identify] = " & id)
If dr Is Nothing Then
    DataTables(nm).AppendLoad("[_Identify] = " & id)
    dr =  DataTables(nm).Find("[_Identify] = " & id)
Else
    dr.Load()
End If
If dr IsNot Nothing Then
    'Dim wz As Integer = Tables(nm).FindRow(dr)
    Dim wz As Integer = Tables(nm).FindRow("[_Identify] = " & id)
    If wz < 0 Then  '如果因为筛选导致此合同签订类不可见
        Tables(nm).Filter = ""
        wz =Tables(nm).FindRow(dr)
    End If
    If wz >= 0 Then
        MainTable = Tables(nm)
        Tables(nm).Position = wz
        For Each f As WinForm.Form In Forms
            If f.TableName=nm  Then
                f.open(-2000,-2000)
                If f.formstyle <> 5 Then
                    f.close
                   
                End If
            End If
        Next
    End  If
End  If
e.Form.Close()

msgbox(nm) 看弹出的值是否正确

如果提示不存在对应的表，说明你这个确实不存在

或者试试改成 Tables(nm).DataTable.Save()

老师，知道原因了，默认这个表是不加载的，表加载了就没问题了，在表没加载的情况下怎么处理呢？

判断，加载

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

试过，这样也不行啊？

Dim nm As String = e.Form.Controls("Label3").Text
If DataTables.Contains("nm") = False
    DataTables.Load("nm")
End If

.......

还是报同样的错。