主题：关于按钮动态变化

关于窗体中第一条、下一条、上一条、最后一条按钮，用什么方法可以更好地解决，窗体加载后初始状态时数据行在第一条或移到或直接选择第一条时、上一条按钮不可用，当数据下移后第一条、下一条、上一条、最后一按钮变为可用，当数据移到后直接最后一条时下一条和最后一条按钮变为不可用。

怎么不是动态的
此主题相关图片如下：1.png


此主题相关图片如下：2.png


此主题相关图片如下：3.png

有点色老师你好，不知道哪有问题不是动态变化的

If e.Table.Current IsNot Nothing AndAlso e.Table.Current.Index = 0 Then

    If Forms("机具资料入库窗体").Opened 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

If e.Table.Current IsNot Nothing AndAlso e.Table.Current.Index = e.Table.Rows.count-1 Then

    If Forms("机具资料入库窗体").Opened 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

 

运行时按钮没变化的