Foxtable(狐表)用户栏目专家坐堂 → 调试技巧使用


  共有1968人关注过本帖树形打印复制链接

主题:调试技巧使用

帅哥哟,离线,有人找我吗?
charity
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:58 积分:426 威望:0 精华:0 注册:2021/8/5 10:15:00
调试技巧使用  发帖心情 Post By: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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105479 积分:536386 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/23 15:31:00 [只看该作者]

是的,看哪个MessageBox不能弹出来,就是这个MessageBox前一句代码出错了

 回到顶部
帅哥哟,离线,有人找我吗?
charity
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:58 积分:426 威望:0 精华:0 注册:2021/8/5 10:15:00
  发帖心情 Post By:2021/8/23 15:33:00 [只看该作者]

全部都弹出来了     

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105479 积分:536386 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/23 16:01:00 [只看该作者]

不可能全部都弹的,只能说明没有认真测试。至少4是无论如何都不会弹出来

 回到顶部
帅哥哟,离线,有人找我吗?
charity
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:58 积分:426 威望:0 精华:0 注册:2021/8/5 10:15:00
  发帖心情 Post By:2021/8/23 17:16:00 [只看该作者]



这是怎么回事呀?
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105479 积分:536386 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/23 17:19:00 [只看该作者]

第一句代码就错了。这代码是要干嘛

 回到顶部