专家坐堂-删除多行为什么总有一行，删不掉，还需要删第二次Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  删除多行为什么总有一行，删不掉，还需要删第二次  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51971)

--  作者：jpg7
--  发布时间：2014/6/6 16:09:00
--  删除多行为什么总有一行，删不掉，还需要删第二次

befordeletedatarow中代码如下

static psd As String = ""

If user.IsRole("管理") = True Or user.name = "冯志明" Then
    If e.DataRow.IsNull("下单日期") = False Then
        If psd <> "040610" Then \'如果密码不正确
            InputValue(psd,"验证","请输入密码") \'输入密码
            e.Cancel = True
        End If
    End If
Else
    e.Cancel = True
    MessageBox.Show("无权删除")
End If

多行为什么总有一行，删不掉，还需要删第二次

--  作者：Bin
--  发布时间：2014/6/6 16:11:00
--

static psd As String = ""
If user.IsRole("管理") = True Or user.name = "冯志明" Then
    If e.DataRow.IsNull("下单日期") = False Then
  InputValue(psd,"验证","请输入密码")
        If psd <> "040610" Then \'如果密码不正确
            InputValue(psd,"验证","请输入密码") \'输入密码
            e.Cancel = True
        End If
    End If
Else
    e.Cancel = True
    MessageBox.Show("无权删除")
End If

--  作者：JPG7
--  发布时间：2014/6/6 16:37:00
--

以下是引用Bin在2014-6-6 16:11:00的发言：

static psd As String = ""

If user.IsRole("管理") = True Or user.name = "冯志明" Then
    If e.DataRow.IsNull("下单日期") = False Then

  InputValue(psd,"验证","请输入密码")
        If psd <> "040610" Then \'如果密码不正确
            InputValue(psd,"验证","请输入密码") \'输入密码
            e.Cancel = True
        End If
    End If
Else
    e.Cancel = True
    MessageBox.Show("无权删除")
End If

加上这句总需要点确定，删多少行点多少次

还有老师怎么让输入的密码为****

--  作者：Bin
--  发布时间：2014/6/6 16:39:00
--
InputValue 改为Inputpassword

--  作者：有点甜
--  发布时间：2014/6/6 16:40:00
--
上面的代码，不会出现删除不完全的情况。是不是你删除的代码有问题？

--  作者：Bin
--  发布时间：2014/6/6 16:42:00
--

static psd As String = ""
If user.IsRole("管理") = True Or user.name = "冯志明" Then
    If e.DataRow.IsNull("下单日期") = False Then
        If psd <> "040610" Then \'如果密码不正确
  Inputpassword(psd,"验证","请输入密码") \'输入密码
  If psd <> "040610" Then
            e.Cancel = True
end if
        End If
    End If
Else
    e.Cancel = True
    MessageBox.Show("无权删除")
End If

--  作者：有点甜
--  发布时间：2014/6/6 16:42:00
--

说错了，代码要改一下

static psd As String = ""

If user.IsRole("管理") = True Or user.name = "冯志明" Then
    If e.DataRow.IsNull("下单日期") = False Then
        If psd <> "040610" Then \'如果密码不正确
            InputValue(psd,"验证","请输入密码") \'输入密码
            If psd <> "040610" Then \'如果密码不正确
                e.Cancel = True
            End If
        End If
    End If
Else
    e.Cancel = True
    MessageBox.Show("无权删除")
End If

--  作者：JPG7
--  发布时间：2014/6/6 19:27:00
--

以下是引用有点甜在2014-6-6 16:42:00的发言：

说错了，代码要改一下

static psd As String = ""

If user.IsRole("管理") = True Or user.name = "冯志明" Then
    If e.DataRow.IsNull("下单日期") = False Then
        If psd <> "040610" Then \'如果密码不正确
            InputValue(psd,"验证","请输入密码") \'输入密码
            If psd <> "040610" Then \'如果密码不正确
                e.Cancel = True
            End If
        End If
    End If
Else
    e.Cancel = True
    MessageBox.Show("无权删除")
End If
怎么让密码显示为*号啊

--  作者：JPG7
--  发布时间：2014/6/6 19:30:00
--

以下是引用有点甜在2014-6-6 16:42:00的发言：

说错了，代码要改一下

static psd As String = ""

If user.IsRole("管理") = True Or user.name = "冯志明" Then
    If e.DataRow.IsNull("下单日期") = False Then
        If psd <> "040610" Then \'如果密码不正确
            InputValue(psd,"验证","请输入密码") \'输入密码
            If psd <> "040610" Then \'如果密码不正确
                e.Cancel = True
            End If
        End If
    End If
Else
    e.Cancel = True
    MessageBox.Show("无权删除")
End If

怎么让输入的密码显示为*