以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  修改代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105195)
--  作者：jick0526
--  发布时间：2017/8/14 1:58:00
--  修改代码
老师，请问下下面的代码能帮我加个前提吗，就是如果表属性里的允许编辑如果已设为False,那么下面的代码就不会执行，否则代码则生效，谢谢！

Dim Result As DialogResult
Result = MessageBox.Show("Remove Delete All?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
DataTables(CurrentTable.Name).datarows.clear
End If
--  作者：有点甜
--  发布时间：2017/8/14 8:38:00
--  

If CurrentTable.AllowEdit Then
    Dim Result As DialogResult
    Result = MessageBox.Show("Remove Delete All?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        CurrentTable.DataTable.datarows.clear
    End If
Else
    msgbox("此表不能编辑")
End If

[此贴子已经被作者于2017/8/14 8:38:40编辑过]