以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎么样在多行删除代码里加入确认和取消代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50683)
--  作者：qwe790715
--  发布时间：2014/5/11 11:06:00
--  [求助]怎么样在多行删除代码里加入确认和取消代码

以下是多行删除代码：


With Tables("顾客档案表")

    For i As Integer = .BottomPosition To .TopPosition Step -1

        .Rows(i).Delete()

    Next

End With
--  作者：有点甜
--  发布时间：2014/5/11 13:53:00
--  

Dim Result As DialogResult
Result = MessageBox.Show("你确定删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
If result = DialogResult.Yes Then
    With Tables("顾客档案表")
        For i As Integer = .BottomPosition To .TopPosition Step -1
            .Rows(i).Delete()
        Next
    End With
End If

 

http://www.foxtable.com/help/topics/0326.htm

 

[此贴子已经被作者于2014-5-11 13:52:58编辑过]