主题：自定义流程

每一次新增行以后，都要保存，通知一次各个客户端的；

或者是，合成所有的_Identify值，一次性通知各个客户端。

你新增的时候，把_Identify值放到一个字符串里面去，如

str = str & "," & dr("_Identify")

最后发送str，接收后，加载条件改成 _Identify in (" & str.trim(",") & ")

1、合成_Identify以后，发送获取，各个客户端也要修改加载代码的。

2、做个具体实例发上来测试。

1、你可以加入判断，比如

If 当前行("某列") = "未审核" Then

    '发送 qqclient.send

Else

    '保存等操作

End If

2、如果要批量发送，可以写成循环，如

For Each r As Row in Tables("某表").Rows

    If 符合条件 Then

        '发送 qqclient.send

    End If

Next

发送

查看按钮

DataTables("开模申请单").Save() '接下来要根据主键查找,必须先保存,因为只有保存后新增行的主键才是有效值.
Dim id As String = e.Form.Controls("Label2").Text
msgbox("[_Identify] in (" & id & ")")
DataTables("开模申请单").removefor("[_Identify] in (" & id & ")")
DataTables("开模申请单").AppendLoad("[_Identify] in (" & id & ")")
Forms("模具申请表").Open()

e.Form.Close()

1、申请人列，你要填入值的。发送申请的时候，填入，如

Dim ids As String = ""
Dim bhs As String = ""
For Each r As Row In Tables("开模申请单").rows
    If r("审核") = False Then

        r("申请人") = user.group & "." & user.name
        r.Save()
        ids &= r("_Identify") & ","
        bhs &= r("模具编号") & ","
    End If
Next
If ids > "" Then
    QQClient.Send("生产部.张良斌","+@|" & ids.trim(",") & "|" & bhs.trim(",") & "|" & User.Name,True)
End If

2、审核通过以后，直接获取列的值，如

QQClient.Send(r("申请人"), "-@|" & r("模具编号") & "|" & User.Name)

不就是和审核一模一样的代码？照抄代码即可。

是的，一模一样，照抄代码，理解代码。