给按钮加上代码

选择要设置代码的按钮,然后选择"事件"页,单击"Click"项目右边的按钮,为Click事件设置代码:

三个按钮的Click事件分别设为:

名称 标题 Click事件代码
Add 增加行 CurrentTable.AddNew()
Delete 删除行 If CurrentTable.Current IsNot Nothing Then
    CurrentTable
.Current.Delete
End
If
Clone 克隆行 If CurrentTable.Current IsNot Nothing Then
    CurrentTable
.Current.Clone
End
If

最后逐次单击“确定”按钮退出菜单设计,可以看到我们设计的菜单将替换掉原来的系统菜单。


本页地址:http://www.foxtable.com/webhelp/topics/1068.htm