Private Sub Command1_ClickCommand1Enabled = FalseCommand2Enabled = TrueLabel1Visible = TrueForm1Caption = quot单击“隐藏”按钮隐藏文字quotEnd SubPrivate Sub Command2_ClickCommand1Enabled = TrueCommand2。
给几个写的模块给你看看 Public Function LoadDatastrSQL As StringDim rst As DAORecordset Dim ctl As Control Dim fld As Object Set rst = CurrentDbOpenRecordsetstrSQL， ， dbReadOnlyIf Not rstEOF Then。