Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]自动刷新统计数量


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

主题：[求助]自动刷新统计数量
帅哥哟，离线，有人找我吗？
huhu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		[求助]自动刷新统计数量  发帖心情 Post By：2015/9/23 16:33:00 [只看该作者]

提交按钮代码如下,想点击提交后，自动把BUG研发查询修改系统菜单的TopicBar1的统计数量cnt刷新一下。请看红色的代码有问题吗？
Dim r As Row = Tables("BUG研发表").Current
Dim str As String =""
If r.IsNull("出错模块") OrElse r("出错模块") = "请选择出错模块" Then
    str &= "出错模块,"
End If
If r.IsNull("出错原因") OrElse r("出错原因") = "对出错BUG进行分析,定位问题找出原因,书写格式为:" & vbcrlf & "1:" & vbcrlf & "2:"  & vbcrlf & "3:"  & vbcrlf & " ."  & vbcrlf & " ."  & vbcrlf & " ."  Then
    str &= "出错原因,"
End If
If r.IsNull("解决模块") OrElse r("解决模块") = "请选择解决模块" Then
    str &= "解决模块,"
End If
If r.IsNull("模块版本") OrElse r("模块版本") = "请输入模块版本号"  Then
    str &= "模块版本,"
End If
If r.IsNull("解决版本") OrElse r("解决版本") = "请选择解决环境" Then
    str &= "解决版本,"
End If
If r.IsNull("更新标题") OrElse r("更新标题") = "请输入BUG更新标题,简明扼要凸显重点" Then
    str &= "更新标题,"
End If
If r.IsNull("具体修改") OrElse r("具体修改") = "请输入具体修改的message,书写格式为:" & vbcrlf & "1:" & vbcrlf & "2:"  & vbcrlf & "3:"  & vbcrlf & " ."  & vbcrlf & " ."  & vbcrlf & " ." Then
    str &= "具体修改"
End If
If str >""
    MessageBox.show("请检查," & str.Trim(",") & "不能为空","点击提交时请确认",MessageBoxButtons.OK,MessageBoxIcon.Question)
    r("已保存") = False
    Return
End If
If r("已提交") = True Then
    MessageBox.show("此BUG修改已经提交过了," & r("提交人") & "正在验证,请静静等待验证结果" & "不要在点提交按钮了","博达BUG综合管理系统",MessageBoxButtons.OK,MessageBoxIcon.error)
    Return
ElseIf r.Isnull("出错模块")=False AndAlso r.Isnull("出错原因")=False AndAlso r.Isnull("解决模块")=False AndAlso r.Isnull("模块版本")=False AndAlso r.Isnull("解决版本")=False AndAlso r.Isnull("更新标题")=False AndAlso r.Isnull("具体修改")=False
    If MessageBox.show("请确认此BUG已修正的信息是否提交到测试人员" & r("提交人") & "?","提交前请确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)=DialogResult.OK Then
        'Forms("发送mail").open
        'Dim m As New MailSender
        'm.Host = "mail.bdcom.com.cn"
        'm.Account = "BUG@bdcom.com.cn"
        'm.Password = "bdcom101liujy"
        'm.From = "BUG@bdcom.com.cn"        '
        'm.AddReceiver(r("提交人邮箱").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
        'If r.IsNull("模块维护人邮箱") = False Then
        'm.AddReceiver(r("模块维护人邮箱").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
        'End If
        'If r.IsNull("测试经理") = False Then
        'm.AddReceiver(r("测试经理").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
        'End If
        'If r.IsNull("研发经理") = False Then
        'm.AddReceiver(r("研发经理").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
        'End If
        'If r.IsNull("研发组长邮箱") = False Then
        'm.AddReceiver(r("研发组长邮箱").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
        'End If
        'If r.IsNull("测试组长邮箱") = False Then
        'm.AddReceiver(r("测试组长邮箱").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
        'End If
        'm.Title = "博达BUG综合管理系统= = = =" & "BUG编号:" & r("BUG_ID") & "-----此BUG已修正,请测试人员" & r("提交人") & "(" & r("测试分机号") & ")" & "尽快验证." & "研发" & r("模块维护人") & "期待你的验证结果!"
        'm.C & r("BUG_ID") & vbcrlf & "测试机型:" & r("测试机型") & vbcrlf & "出错模块:" & r("出错模块") & vbcrlf & "出错原因:" & r("出错原因") & vbcrlf & "解决模块:" & r("解决模块") & vbcrlf & "模块版本:" & r("模块版本") & vbcrlf & "解决版本:" & r("解决版本") & vbcrlf & "更新标题:" & r("更新标题") & vbcrlf & "具体修改:" & r("具体修改")   & vbcrlf & "测试建议:" & r("测试建议")
        'm.Send
        'Forms("发送mail").close
        r("已保存") = True
        r("已提交") = True
        r("状态") = "已更新"
        r.save
        Dim wd As WinForm.Form = Forms("BUG研发查询修改系统")
        If wd.opened = True Then
            Dim Page As WinForm.TopicPage
            Dim cnt1 As Integer = DataTables("BUG研发表").SQLCompute("Count(BUG_ID)","状态 = '待解决' and 模块维护人邮箱 = '" & user.name & "'")
            Dim cnt2 As Integer = DataTables("BUG研发表").SQLCompute("Count(BUG_ID)","状态 = '已更新'  and 模块维护人邮箱 = '" & user.name & "'")
            Dim cnt3 As Integer = DataTables("BUG研发表").SQLCompute("Count(BUG_ID)","状态 = '已解决'  and 模块维护人邮箱 = '" & user.name & "'")
            Dim cnt4 As Integer = DataTables("BUG研发表").SQLCompute("Count(BUG_ID)","状态 = '未解决'  and 模块维护人邮箱 = '" & user.name & "'")
            Dim cnt5 As Integer = DataTables("BUG研发表").SQLCompute("Count(BUG_ID)","模块维护人邮箱 = '" & user.name & "'")
            page = Forms("BUG研发查询修改系统").Controls("TopicBar1").Pages.Add("BUG状态分类统计","BUG状态分类统计")            
            Page.Links.Add("待解决BUG","待解决BUG(" & cnt1 & ")" )
            Page.Links.Add("已更新BUG","已更新BUG(" & cnt2 & ")" )
            Page.Links.Add("已解决BUG","已解决BUG(" & cnt3 & ")" )
            Page.Links.Add("未解决BUG","未解决BUG(" & cnt4 & ")" )
            Page.Links.Add("所有的BUG","所有的BUG(" & cnt5 & ")" )
        End If        
        r.Locked = True
        For Each cdr As DataRow In DataTables("BUG录入表").Select("BUG_ID = '" & r("BUG_ID") & "'")
            cdr("状态") = r("状态")
        Next
        MessageBox.show("BUG编号:" & r("BUG_ID") & "此BUG已修正信息mail通知了测试提交人员" & r("提交人") & ",请耐心等待验证结果!","博达BUG综合管理系统")
        
        Forms("BUG解决明细").close
        Forms("BUG查询系统").Close
    End If
End If
DataTables("BUG研发表").save
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/23 16:35:00 [只看该作者]

什么错啊？如果计算不正确。就先save后，再sqlCompute

 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2015/9/23 17:11:00 [只看该作者]

哦。是这样。点击完提交按钮后，不是自动把BUG研发查询修改系统菜单的TopicBar1刷新。而是又新增了一个TopicBar1。
我仅仅想点击提交后，状态由待解决变为了已更新。那么待解决的数量减一，已更新的数量就增加一。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/23 17:15:00 [只看该作者]

1、统计的代码写到最后。

 

2、要先save后，再统计。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2015/9/23 17:18:00 [只看该作者]

我是先save，后统计的。问题是红色的代码是新增了TopicBar1，而不是把原有的TopicBar1刷新。
        DataTables("BUG研发表").save
        Dim wd As WinForm.Form = Forms("BUG研发查询修改系统")
        If wd.opened = True Then
            Dim Page As WinForm.TopicPage
            Dim cnt1 As Integer = DataTables("BUG研发表").SQLCompute("Count(BUG_ID)","状态 = '待解决' and 模块维护人邮箱 = '" & user.name & "'")
            Dim cnt2 As Integer = DataTables("BUG研发表").SQLCompute("Count(BUG_ID)","状态 = '已更新'  and 模块维护人邮箱 = '" & user.name & "'")
            Dim cnt3 As Integer = DataTables("BUG研发表").SQLCompute("Count(BUG_ID)","状态 = '已解决'  and 模块维护人邮箱 = '" & user.name & "'")
            Dim cnt4 As Integer = DataTables("BUG研发表").SQLCompute("Count(BUG_ID)","状态 = '未解决'  and 模块维护人邮箱 = '" & user.name & "'")
            Dim cnt5 As Integer = DataTables("BUG研发表").SQLCompute("Count(BUG_ID)","模块维护人邮箱 = '" & user.name & "'")
            page = Forms("BUG研发查询修改系统").Controls("TopicBar1").Pages.Add("BUG状态分类统计","BUG状态分类统计")       
            Page.Links.Add("待解决BUG","待解决BUG(" & cnt1 & ")" )
            Page.Links.Add("已更新BUG","已更新BUG(" & cnt2 & ")" )
            Page.Links.Add("已解决BUG","已解决BUG(" & cnt3 & ")" )
            Page.Links.Add("未解决BUG","未解决BUG(" & cnt4 & ")" )
            Page.Links.Add("所有的BUG","所有的BUG(" & cnt5 & ")" )
        End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/23 17:20:00 [只看该作者]

page = Forms("BUG研发查询修改系统").Controls("TopicBar1").Pages("BUG状态分类统计")
Page.Links("待解决BUG").Text = "待解决BUG(" & cnt1 & ")"
Page.Links("已更新BUG").Text = "已更新BUG(" & cnt2 & ")"
Page.Links("已解决BUG").Text = "已解决BUG(" & cnt3 & ")"
Page.Links("未解决BUG").Text = "未解决BUG(" & cnt4 & ")"
Page.Links("所有的BUG").Text = "所有的BUG(" & cnt5 & ")"

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询