以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  流程通知定位行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111625)

--  作者:cd_tdh
--  发布时间:2017/12/26 13:45:00
--  流程通知定位行

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

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

[此贴子已经被作者于2017/12/26 13:57:18编辑过]

--  作者:有点甜
--  发布时间:2017/12/26 14:32:00
--  

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

 

试试改成

 

msgbox("[_Identify] = " & id)

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

msgbox(wz)


--  作者:cd_tdh
--  发布时间:2017/12/26 15:06:00
--  

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

 

[此贴子已经被作者于2017/12/26 15:16:50编辑过]

--  作者:有点甜
--  发布时间:2017/12/26 15:37:00
--  
以下是引用cd_tdh在2017/12/26 15:06:00的发言:

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

 

[此贴子已经被作者于2017/12/26 15:16:50编辑过]

 

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


--  作者:cd_tdh
--  发布时间:2018/1/2 16:29:00
--  

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

 


--  作者:有点甜
--  发布时间:2018/1/2 17:52:00
--  
以下是引用cd_tdh在2018/1/2 16:29:00的发言:

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

 

 

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

 

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


--  作者:cd_tdh
--  发布时间:2018/1/2 19:40:00
--  
老师,就是按照这个帮助来完成的。你说的这个方法对我难度太大,麻烦老师帮忙写一下,谢谢。
[此贴子已经被作者于2018/1/2 19:57:30编辑过]

--  作者:有点蓝
--  发布时间:2018/1/2 21:20:00
--  
按步骤照搬帮助的代码即可。
--  作者:cd_tdh
--  发布时间:2018/1/2 21:42:00
--  
老师,帮助是单表,没问题,我想很多表共用一个查看提示窗口,查看可以定位到不同的表。
[此贴子已经被作者于2018/1/2 21:45:40编辑过]

--  作者:有点蓝
--  发布时间:2018/1/2 21:56:00
--  
参考:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=87724&replyID=&skin=1