麻烦老师帮我看一下这段代码有问题吗? 为什么我以版师的角色删除不了 , 还有新增项目的时候不能显示出来,麻烦老师帮忙解答一下
删除按钮代码:
Dim aa As WinForm.Form = Forms("版型信息")
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim vr As WinForm.ListViewRow = lvw.Current '获取ListView的当前行
If vr Is Nothing Then '如果不存在当前行,也就是内有选定任何一行
Return
End If
Dim jk As Integer
Integer.TryParse(vr("_Identify"),jk)
Dim dr As DataRow = Tables("版型库").DataTable.Find("_Identify = '" & jk & "'")
Dim ps As Integer = Tables("版型库").FindRow(dr)
If dr IsNot Nothing AndAlso dr("设计师") = user.Name AndAlso dr("审核") = False Then
dr.Delete '从DataTable删除行
vr.Delete '从ListView删
Else
PopMessage("没权限删除",,,7)
Return
End If
增加按钮代码:
If User.IsRole("版师") OrElse User.IsRole("设计师") Then
Tables(e.Form.TableName).AddNew()
Else
PopMessage("没权限增加",,,7)
Return
End If
Dim aa As WinForm.Form = Forms("版型信息")
If aa.Opened = False Then
aa.Open()
End If