主题：流程通知定位行

老师，流程通知查看按钮老是定位不到待审核行呢

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

老师，数据是同步的，但另外一个部门登录时多了一行空格行，不知道怎么回事，删除就对了。

 

老师，之前只做了一个流程的审批，我有很多表需要做流程审批，共用一个查看窗口怎么实现？

 

老师，就是按照这个帮助来完成的。你说的这个方法对我难度太大，麻烦老师帮忙写一下，谢谢。

老师，帮助是单表，没问题，我想很多表共用一个查看提示窗口，查看可以定位到不同的表。

有点蓝老师，这个思路比用 6楼有点甜老师的思路更复杂，看懂都有难度，麻烦用有点甜老师的思路写一下代码。