currentChanged事件
If e.Table.Current IsNot Nothing AndAlso e.Table.Current.Index = 0 Then
If Forms("窗口1").Opened Then
Forms("窗口1").Controls("button1").Enabled = False
End If
End If
If e.Table.Current IsNot Nothing AndAlso e.Table.Current.Index = e.Table.Rows.count-1 Then
If Forms("窗口1").Opened Then
Forms("窗口1").Controls("button2").Enabled = False
End If
End If
窗口AfterLoad事件
Dim t As Table = Tables("表A")
If t.Current IsNot Nothing AndAlso t.Current.Index = 0 Then
Forms("窗口1").Controls("button1").Enabled = False
Else
Forms("窗口1").Controls("button1").Enabled = true
End If
[此贴子已经被作者于2017/6/1 23:18:14编辑过]
加好友 
发短信
Post By：2017/6/1 20:29:00 [只看该作者]
