主题：动态第三方控件怎样在表事件起作用?

Dim e As Object = Args(0)

Dim Sender As Object = Args(1)  '传递给全局代码的第二个参数

If e.Table.Current Is Nothing Then '如果Current为Nothing

    Return Nothing '则返回

End If

Dim r As Row = e.Table.Current

If Forms("窗口2").Opened Then

    Select Case  e.ClickedItem.Name

        Case "审核"

            If  r.IsNull("操作人")= False Then

                e.ClickedItem.Text ="取消审核"

            ElseIf r.IsNull("操作人")= True

                e.ClickedItem.Text =e.ClickedItem.Name

            End If

    End Select

End If