主题：改按键标题

建议回头看一下 《编程基础》中关于流程语句的部分。

If user.group = "业务主管"
    Dim dr As Row  = Tables("课程表").Current
    Dim cmb As WinForm.button
    cmb = Forms("教务管理").Controls("button6")
    If cmb.text = "修改当前记录" Then
        DataTables("课程表").AllowEdit = False
        cmb.text = "保存修改记录"
    ElseIf cmb.text = "保存修改记录" Then
        dr.save()
        DataTables("课程表").AllowEdit = True
        cmb.text ="修改当前记录"
    End If
End If