以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  同一个按键 标题可切换  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169442)
--  作者：瑞峰
--  发布时间：2021/6/17 0:54:00
--  同一个按键 标题可切换
如果想实现，t1 t2保存成功之后，“保存”按键 的标题 换成 “新建”
点击 新建 
t1新建行 完成之后，按键的标题 换成 “保存”

就是同一个按键标题 在“保存”和“新建”之间切换。
当然，要完成对应的代码。


以下这段没有达成效果
Dim t1 As Table = e.Form.Controls("Table1").Table
Dim t2 As Table = e.Form.Controls("Table2").Table
Dim ctl As WinForm.Button = e.Form.Controls("save")

If t1.Current.DataRow.RowState =DataRowState.Detached Then \'刚刚创建,还未添加到DataTable中的行
    e.Form.Controls("save").text ="保存"
    t1.save
    t2.save
    e.Form.Controls("save").text ="新建"
Else
    t1.addnew
    e.Form.Controls("save").text ="保存"
End If
--  作者：cd_tdh
--  发布时间：2021/6/17 9:07:00
--  

比如这样：

If e.Form.Controls("Button1").text = "我是1" Then
    msgbox("代码1执行完成")
    e.Form.Controls("Button1").text ="我是2"
Else
    msgbox("代码2执行完成")
    e.Form.Controls("Button1").text ="我是1"
End If

[此贴子已经被作者于2021/6/17 9:07:31编辑过]
--  作者：瑞峰
--  发布时间：2021/6/17 10:10:00
--  
这也是一个思路，只要在load事件中， 初始化 控件名称为保存即可。
以下是引用cd_tdh在2021/6/17 9:07:00的发言：

比如这样：

If e.Form.Controls("Button1").text = "我是1" Then
    msgbox("代码1执行完成")
    e.Form.Controls("Button1").text ="我是2"
Else
    msgbox("代码2执行完成")
    e.Form.Controls("Button1").text ="我是1"
End If

[此贴子已经被作者于2021/6/17 9:07:31编辑过]
--  作者：有点蓝
--  发布时间：2021/6/17 12:02:00
--  
If e.Form.Controls("save").text ="保存" Then 
    t1.save
    t2.save
    e.Form.Controls("save").text ="新建"
Else
    t1.addnew
    e.Form.Controls("save").text ="保存"
End If