以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求大神指点  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86458)
--  作者：ifjstxu
--  发布时间：2016/6/17 17:05:00
--  求大神指点
按钮标题 Click事件代码
删除行 With Tables("订单")
    If .Current IsNot Nothing Then
        .Current.Delete
    End If
End With
锁定行 With Tables("订单")
    If .Current IsNot Nothing Then
        .Current.Locked = True
    End If
End With
取消锁定 With Tables("订单")
    If .Current IsNot Nothing Then
        .Current.Locked = False
    End If
End With
上一行 With Tables("订单")
    .Position = .Position - 1
End With
下一行 With Tables("订单")
    .Position = .Position + 1
End With
大神指点下  这个是帮助文件里窗口基础下的快速入门里提供的代码，为什么我按照帮助文件的顺序操作，最后应用窗口执行代码操作是都是增加行？还有点录入窗口里的文本也会显示增加行，好奇怪   求大神指点！！！！！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:录入系统.table
--  作者：ifjstxu
--  发布时间：2016/6/17 17:05:00
--  
大神指点下  我是哪里出了错？
--  作者：ericotaku
--  发布时间：2016/6/17 17:37:00
--  

Tables("订单").AddNew()

这个代码你写在窗口的click里了
--  作者：ifjstxu
--  发布时间：2016/6/20 8:45:00
--  
这个应该写在哪里
--  作者：Hyphen
--  发布时间：2016/6/20 8:58:00
--  
写在按钮事件里，去掉窗口全局click事件代码
--  作者：ifjstxu
--  发布时间：2016/6/20 9:05:00
--  
谢谢  我已经懂了