专家坐堂-调试技巧使用Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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