以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]无法删除选定行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108707)

--  作者:winwtj
--  发布时间:2017/10/27 15:39:00
--  [求助]无法删除选定行
代码如下
If Tables("产权信息").current IsNot Nothing Then
*MessageBox.Show("删除后将不可恢复,是否确认?", "提示", MessageBoxButtons.okcancel)
*Dim Result As DialogResult
*If Result = DialogResult.ok Then
Tables("产权信息").Current.Delete()
End If
End If
需要在删除行之前确认,但加入,*号代码后,无法删除选定行,但如果去掉msgbox代码,就可以。

--  作者:winwtj
--  发布时间:2017/10/27 15:45:00
--  
图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看
--  作者:有点甜
--  发布时间:2017/10/27 16:05:00
--  
If Tables("产权信息").current IsNot Nothing Then
    Dim Result As DialogResult = MessageBox.Show("删除后将不可恢复,是否确认?", "提示", MessageBoxButtons.okcancel)
    If Result = DialogResult.ok Then
        Tables("产权信息").Current.Delete()
    End If
End If