表A_PositionChanged
If CurrentTable.Current("是否打印")=True Or Forms("窗口1").Controls("TextBox2").text ="no" Then
Forms("窗口1").Controls("Button1").Enabled=False
Else
Forms("窗口1").Controls("Button1").Enabled=True
End If
窗口1_TextBox2_TextChanged
If CurrentTable.Current("是否打印")=True Or Forms("窗口1").Controls("TextBox2").text ="no" Then
Forms("窗口1").Controls("Button1").Enabled=False
Else
Forms("窗口1").Controls("Button1").Enabled=True
End If