以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助][求助] 各位大神快来帮帮我吧！！！！！！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28139)
--  作者：小肥牛
--  发布时间：2013/1/20 11:28:00
--  [求助][求助] 各位大神快来帮帮我吧！！！！！！
我想问一下，给删除按钮一个事件代码


具体内容为：选中内容，点击删除按钮，出现删除提示，如果

-----点击确定，而内容或行是锁定的则提示内容被锁定，无法删除，请解锁。如果内容不是锁定的，则可以正常删除；

-----点击取消，则不删除选中内容；

请问大神这个事件代码应该怎么写？？？？？

[此贴子已经被作者于2013-1-20 11:55:34编辑过]
--  作者：even0898
--  发布时间：2013/1/20 11:57:00
--  

dim r as row = table("表名").current

if r.locked  = ture

then

...

..

end if

msg的自己写啦
--  作者：yupoco
--  发布时间：2013/1/20 13:38:00
--  
Dim a As Row = Tables("图纸登记表").current
If a.Locked  = True \'如果此行目前锁定
    Messagebox.show("行被锁定,无法删除,请解锁!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    If MessageBox.Show("⌒_⌒确认删除记录吗?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)=DialogResult.OK Then
        Tables("图纸登记表").Current.Delete
    End If
End If