以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 调试技巧使用 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171237) |
-- 作者:charity -- 发布时间:2021/8/23 15:02:00 -- 调试技巧使用 我写了一段代码,请大家帮我看看是这么调试的吗? 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 |
-- 作者:有点蓝 -- 发布时间:2021/8/23 15:31:00 -- 是的,看哪个MessageBox不能弹出来,就是这个MessageBox前一句代码出错了 |
-- 作者:charity -- 发布时间:2021/8/23 15:33:00 -- 全部都弹出来了 |
-- 作者:有点蓝 -- 发布时间:2021/8/23 16:01:00 -- 不可能全部都弹的,只能说明没有认真测试。至少4是无论如何都不会弹出来 |
-- 作者:charity -- 发布时间:2021/8/23 17:16:00 -- 这是怎么回事呀?
|
-- 作者:有点蓝 -- 发布时间:2021/8/23 17:19:00 -- 第一句代码就错了。这代码是要干嘛 |