http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=37935&authorid=0&page=0&star=1
像这样的 我放在CurrentChanged切换行事件应该怎么判断控件的名字.
我写了这么一段函数 无效.
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