 加好友  发短信
等级：童狐
帖子：298
积分：2605
威望：0
精华：0
注册：2013/5/22 7:16:00
|
自定义用户  Post By：2020/7/21 22:46:00 [显示全部帖子]
请问老师
自定义用户与权限管理之一里面的用户管理窗口 的
"删除用户“按钮的代码为：
Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
If lst.SelectedIndex >=0 Then
Dim UserName As String = lst.Sele ctedItem
Dim cmd As New SQLCommand
cmd.ConnectionName = "User"
cmd.CommandText = "Del ete Fr om {Users} Where [Name] = '" & UserName & "'"
cmd.ExecuteNonQuery
lst.Items.RemoveAt(lst.SelectedIndex)
End If
如何在删除前加个提示确认
|
|
