主题：[求助]到期禁用按钮

去编写currentChanged事件

If Forms("窗口1").Opened Then
    Dim d1 As Date = e.Table.Current("列5")
    Dim d2 As Date = Date.Today
    If Format(d1, "yyyyMM") - Format(d2, "yyyyMM") > 1 Then
        Forms("窗口1").Controls("Button1").Enabled = False
    Else
        If d2.Day >= 5 AndAlso Format(d1, "yyyyMM") - Format(d2, "yyyyMM") = 1 Then
            Forms("窗口1").Controls("Button1").Enabled = False
        Else
            Forms("窗口1").Controls("Button1").Enabled = True
        End If
    End If
End If