'If e.sender.Checked Then
'e.sender.text = "浏览"
'Tables("销售").AllowEdit = True
'e.Form.Controls("SplitContainer1").Panel2Collapsed = False
'Else
'e.sender.text = "编辑"
'Tables("销售").AllowEdit = False
'e.Form.Controls("SplitContainer1").Panel2Collapsed = True
'End If
老师,上面隐藏面板1的代码报错,谢谢老师修改。