以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  改按键标题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90903)
--  作者：刘林
--  发布时间：2016/9/24 18:08:00
--  改按键标题
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 = "保存修改记录"
    End If
    
    If cmb.text = "保存修改记录" Then
        dr.save()
        DataTables("课程表").AllowEdit = True
        cmb.text ="修改当前记录"
    End If
End If
请问如何改按键标题，这样写不变呢，谢谢
--  作者：狐狸爸爸
--  发布时间：2016/9/24 18:28:00
--  

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

 

 

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
--  作者：刘林
--  发布时间：2016/9/24 19:36:00
--  
谢谢