Dim aa As WinForm.Form = Forms("版型信息")
MessageBox.Show(1)
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
MessageBox.Show(2)
Dim vr As WinForm.ListViewRow = lvw.Current '获取ListView的当前行
MessageBox.Show(3)
If vr Is Nothing Then '如果不存在当前行,也就是内有选定任何一行
Return
MessageBox.Show(4)
End If
Dim jk As Integer
Integer.TryParse(vr("_Identify"),jk)
MessageBox.Show(5)
Dim dr As DataRow = Tables("版型库").DataTable.Find("_Identify = '" & jk & "'")
MessageBox.Show(6)
Dim ps As Integer = Tables("版型库").FindRow(dr)
MessageBox.Show(7)
If dr IsNot Nothing AndAlso dr("设计师") = user.Name AndAlso dr("审核") = False Then
dr.Delete '从DataTable删除行
vr.Delete '从ListView删除行
MessageBox.Show(8)
Else
PopMessage("没权限删除",,,7)
MessageBox.Show(9)
End If
加好友 
发短信
Post By：2021/8/23 15:02:00 [显示全部帖子]
Post By：2021/8/23 15:33:00 [显示全部帖子]
