Simone
If Trim(sql) = "" ThenMsgBox "请选择查没饥询方衫启式或察如！", vbOKOnly + vbExclamationExit SubEnd IfadoRSstu.Source = "select *from 设备管理数据表 where " & sqladoRSstu.RefreshDataGrid1.ReBindDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = False
