以文本方式查看主题

-  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=11524)
--  作者：yyzlxc
--  发布时间：2011/8/1 11:04:00
--  [求助]修改代码，增加功能。（已解决）

下面是一段自定义用户管理窗口《删除用户》按钮的代码，要求在代码中增加用户名为“开发”的用户不能被删除的功能，代码应该如何改？请各位老师指教，谢谢！

 

Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
If lst.SelectedIndex >=0 Then
    Dim UserName As String = lst.SelectedItem
    Dim cmd As New SQLCommand
    cmd.C     \'外部数据源
    cmd.CommandText = "Delete From {Users} Where [Name] = \'" & UserName & "\'"
    cmd.ExecuteNonQuery
    lst.Items.RemoveAt(lst.SelectedIndex)
    lst.Select()
End If

 

 

外部数据源的代码老是贴不上？奇怪！

[此贴子已经被作者于2011-8-1 12:08:59编辑过]
--  作者：狐狸爸爸
--  发布时间：2011/8/1 11:38:00
--  

Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
If lst.SelectedIndex >=0 Then
    Dim UserName As String = lst.SelectedItem
    If UserName <> "开发者" Then
        Dim cmd As New SQLCommand
        cmd.C     \'外部数据源
        cmd.CommandText = "Delete From {Users} Where [Name] = \'" & UserName & "\'"
        cmd.ExecuteNonQuery
        lst.Items.RemoveAt(lst.SelectedIndex)
        lst.Select()
    End If
End If
--  作者：blackzhu
--  发布时间：2011/8/1 11:56:00
--  
cmd.C     \'外部数据源  这个地方一直很纠结呀.显示不出来全部的.
--  作者：yyzlxc
--  发布时间：2011/8/1 12:09:00
--  
谢谢狐爸老师，问题得到解决，再次感谢！！