主题：关于按钮动态变化

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

 

 请上传具体实例说明。

改一下

 

If e.Table.Current IsNot Nothing Then
   
    If Forms("机具资料入库窗体").Opened Then
       
        If  e.Table.Current.Index = 0 Then
           
            Forms("机具资料入库窗体").Controls("diyitiao").Enabled = False
           
            Forms("机具资料入库窗体").Controls("shangyitiao").Enabled = False
           
        Else
           
            Forms("机具资料入库窗体").Controls("diyitiao").Enabled = True
            Forms("机具资料入库窗体").Controls("shangyitiao").Enabled = True
           
        End If
       
    End If
   
End If

If e.Table.Current IsNot Nothing Then
   
    If Forms("机具资料入库窗体").Opened Then
       
        if  e.Table.Current.Index = e.Table.Rows.count-1 then
           
            Forms("机具资料入库窗体").Controls("zuihouyitiao").Enabled = False
            Forms("机具资料入库窗体").Controls("xiayitiao").Enabled = False
           
        Else
           
            Forms("机具资料入库窗体").Controls("zuihouyitiao").Enabled = True
            Forms("机具资料入库窗体").Controls("xiayitiao").Enabled = True
           
        End If
       
    End If
   
End If