主题：工作流，经理审核后，到上级副总批准

1、看看

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

2、加入代码，看弹出什么

msgbox(dr is nothing)

msgbox(user.Group)

msgbox(dr.DataTable.Name)

 1、不要用表达式列啊

 2、在后面加上代码

msgbox(dr is nothing)

msgbox(user.Group)

1、你的审核列，明明就是表达式列啊。改成数据列啊

2、

Dim r As Row = Tables("考勤统计表").Current
Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")
r.Save()
'一定要在保存后合成信息,因为新增行的主键在保存后才生成
Dim msg As String = p & r.Table.DataTable.name & "#" & r("_Identify")
For Each bd As QQBuddy In QQClient.Buddies
    If bd.Online Then
        QQClient.Send(bd.name, msg)
    End If
Next

--------------------------------

Dim msg As String = e.Message
Dim dr As DataRow
If msg.StartsWith("U#") Then '表示修改了某行
    Dim pts() As String = msg.Split("#")
    If pts.Length = 3 Then
        dr = DataTables(pts(1)).Find("[_Identify] = " & pts(2))
        If dr IsNot Nothing  Then
            dr.Load() '重新加载此行
        End If
    End If
ElseIf msg.StartsWith("A#") Then '表示增加了行
    Dim pts() As String = msg.Split("#")
    If pts.Length = 3 Then
        Dim drs As List(of DataRow) = DataTables(pts(1)).AppendLoad("[_Identify] = " &  pts(2)) '追载新增加的行.
        If drs.Count > 0 Then
            dr = drs(0)
        End If
    End If
ElseIf msg.StartsWith("D#") Then '表示删除了行
    Dim pts() As String = msg.Split("#")
    If pts.Length = 3 Then
        DataTables(pts(1)).RemoveFor("[_Identify] = "  & pts(2)) '移除行
    End If
End If

If QQClient.UserName.split(".")(0) = "副总" Then
msgbox(2)
    Dim pts() As String = msg.Split("#")
msgbox(pts(1))
    If pts.length = 3 AndAlso pts(1) = "考勤统计表" Then
        msgbox(dr("审核"))
        If dr IsNot Nothing AndAlso dr.IsNull("审核") = False AndAlso dr.IsNull("批准") Then
            PopMessage("有新的考勤需要审核!","提示",PopIconEnum.Infomation)
        End If
    End If
End If