主题：流程通知定位行

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

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()

Dim wz As Integer = Tables("合同签订").FindRow(dr)

 

试试改成

 

msgbox("[_Identify] = " & id)

Dim wz As Integer = Tables("合同签订").FindRow("[_Identify] = " & id)

msgbox(wz)

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

 

 

问题解决就好。调试项目的时候，尽量加入msgbox，弹出各个值测试。

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

 

 

这个提示窗口？http://www.foxtable.com/webhelp/scr/3054.htm

 

把表名、_Identify 一起发过来，根据表名，打开不同的窗口，不就行了？

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

按步骤照搬帮助的代码即可。

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

参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=87724&replyID=&skin=1