Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]enter事件


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

主题：[求助]enter事件
帅哥哟，离线，有人找我吗？
huhu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		[求助]enter事件  发帖心情 Post By：2016/3/8 17:19:00 [只看该作者]

BUG录入系统afterload代码:
Dim lbl As WinForm.Label
lbl = e.Form.Controls("Welcome")
lbl.Text = "今天是" & Date.Today() & ",博达BUG综合管理系统欢迎您!"
Dim r As DataRow = DataTables("BUG录入表").AddNew
r("测试项目名称") = "请选择测试项目名称"
r("现象描述") = "请输入BUG故障信息,越详细越好.但不要罗里吧嗦,让研发看着郁闷!"
r("严重程度") = "请选择严重程度"
r("优先级别") = "请选择优先级别"
r("怀疑模块") = "请选择模块"
r("状态") = "待提交"
DataTables("BUG录入表").Load()
Tables("BUG录入表").sort = "BUG_ID DESC"
测试项目名称combox的enter代码：
Dim rjbb As WinForm.ComboBox = e.Form.Controls("软件版本")
Dim csjx As WinForm.ComboBox = e.Form.Controls("测试机型")
Dim csxm As WinForm.ComboBox = e.Form.Controls("测试项目")
If user.name = "liujiyong@bdcom.com.cn" OrElse user.name = "tanqingzhong@bdcom.com.cn" Then
    csxm.ComboList = DataTables("测试项目列表").SQLGetComboListString("测试项目名称")
ElseIf user.name = "jichenggang@bdcom.com.cn" Then
    csxm.ComboList = DataTables("测试项目列表").SQLGetComboListString("测试项目名称","测试组名 like '%测试epon%' or 测试组名 like '%测试switch%' or 测试组名 like '%测试IEswitch%'"  )
Else
    csxm.ComboList = DataTables("测试项目列表").SQLGetComboListString("测试项目名称","测试组名 = '" & user.group & "'")
End If
rjbb.text = ""
csjx.text = ""
测试查询修改系统afterload代码：
Select Case user.Group
    Case "开发者"
        DataTables("BUG录入表").LoadFilter ="测试部门 = '测试部部门'"
        DataTables("BUG录入表").Load
    Case "测试epron","测试switch","测试IEswitch"
        DataTables("BUG录入表").LoadFilter ="测试部门 = '测试部部门' and (测试组名 = '测试epon' or 测试组名 = '测试switch' or 测试组名 = '测试IEswitch')"
        DataTables("BUG录入表").Load        
    Case "测试router"
        DataTables("BUG录入表").LoadFilter ="测试部门 = '测试部部门' and 测试组名 = '测试router'"
        DataTables("BUG录入表").Load
End Select
Tables("BUG录入表").sort = "BUG_ID DESC"

Select Case user.name
    Case  "开发者"
        Dim cnt As Integer = DataTables("BUG录入表").SQLCompute("Count(BUG_ID)","[严重程度] = '紧急(Critical)'")
        e.Form.Controls("超紧急BUG").text = "超紧急BUG(" & cnt & ")"
    Case "chenhaitao@bdcom.com.cn","zoupingping@bdcom.com.cn","mahuiying@bdcom.com.cn","zhengyi@bdcom.com.cn"
        Dim cnt As Integer = DataTables("BUG录入表").SQLCompute("Count(BUG_ID)","[严重程度] = '紧急(Critical)' and [测试组名] = '" & user.group & "' And (状态 = '待解决' or 状态 = '未解决')")
        e.Form.Controls("超紧急BUG").text = "超紧急BUG(" & cnt & ")"
    Case Else
        Dim cnt As Integer = DataTables("BUG录入表").SQLCompute("Count(BUG_ID)","[严重程度] = '紧急(Critical)' and 提交人邮箱 = '" & user.name & "' And (状态 = '待解决' or 状态 = '未解决') ")
        e.Form.Controls("超紧急BUG").text = "超紧急BUG(" & cnt & ")"
End Select
Dim t1 As WinForm.TreeView
t1 =e.Form.Controls("TreeView1")
t1.BuildTree("BUG录入表", "测试组名|提交人","测试组名 = '" & user.group & "'")
t1.Nodes.Insert("显示'" & user.group & "'所有测试人员提交的BUG",0)
Dim t2 As WinForm.TreeView = e.Form.Controls("TreeView2")
t2.CreateTree("BUG录入表","怀疑模块","","测试组名 = '" & user.group & "'")
t2.Nodes.Insert("显示'" & user.group & "'所有模块的BUG",0)
Dim t3 As WinForm.TreeView = e.Form.Controls("TreeView3")
t3.CreateTree("BUG录入表","测试机型","","测试组名 = '" & user.group & "'")
t3.Nodes.Insert("显示'" & user.group & "'所有机型的BUG",0)
Dim t4 As WinForm.TreeView = e.Form.Controls("TreeView4")
t4.CreateTree("BUG录入表","测试项目名称","","测试组名 = '" & user.group & "'")
t4.Nodes.Insert("显示'" & user.group & "'所有项目的BUG",0)
Dim t5 As WinForm.TreeView = e.Form.Controls("TreeView5")
t5.CreateTree("BUG录入表","软件版本","","测试组名 = '" & user.group & "'")
t5.Nodes.Insert("显示'" & user.group & "'所有环境的BUG",0)

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 = e.Form.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 & ")" )
With DataTables("BUG录入表")
    .LoadOver = "BUG_ID"
    .LoadReverse=True
    .LoadTop =  22
    .LoadPage =  0
    .Load()
    If .TotalPages = 0 Then
        .LoadPage = 0
        e.Form.Controls("TextBox1").Value = .LoadPage  & "/" & .TotalPages
    Else
        e.Form.Controls("TextBox1").Value = .LoadPage + 1  & "/" & .TotalPages
    End  If
End  With

e.Form.Controls("请输入BUG ID号").Text = "请输入BUG ID号"
e.Form.Controls("请输入研发全拼").Text = "请输入研发全拼"
e.Form.Controls("请输入测试全拼").Text = "请输入测试全拼"

遇到的问题是，当我点击完测试查询修改系统，然后回到BUG录入系统，发现测试项目名称没法选择了。
搞不懂怎么回事？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

无法选择，那就是 测试项目名称combox的enter代码 的问题。

 

加入msgbox，看弹出到哪里，最后查询到的combolist是什么值？
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

是这样。
当首次点击BUG录入系统。然后点击测试项目名称enter，是正常的。
不正常是只要点击完测试查询修改系统，然后返回来点击BUG录入系统，在点击测试项目名称enter就异常了。
Dim csxm As WinForm.ComboBox = e.Form.Controls("测试项目")
If user.name = "liujiyong@bdcom.com.cn" OrElse user.name = "tanqingzhong@bdcom.com.cn" Then
    csxm.ComboList = DataTables("测试项目列表").SQLGetComboListString("测试项目名称")
ElseIf user.name = "jichenggang@bdcom.com.cn" Then
    csxm.ComboList = DataTables("测试项目列表").SQLGetComboListString("测试项目名称","测试组名 like '%测试epon%' or 测试组名 like '%测试switch%' or 测试组名 like '%测试IEswitch%'"  )
Else
msgbox(0)
    csxm.ComboList = DataTables("测试项目列表").SQLGetComboListString("测试项目名称","测试组名 = '" & user.group & "'")
msgbox(1)
msgbox(csxm.combolist)
End If

msgbox弹出都是对的。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

最后弹出 msgbox(csxm.combolist) 是正确的？那下拉就不应该有问题。

 

现在你点击下拉，会显示内容吗？不显示，看看是否这个控件其余什么事件有代码影响。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

当首次点击BUG录入系统。然后点击测试项目名称enter，是正常的。下拉列表能正确显示
不正常情况是只要点击完测试查询修改系统，然后返回来点击BUG录入系统，再点击测试项目名称enter就异常了，不出现下拉列表了。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

最后弹出的 msgbox(csxm.combolist) 是不是正确的啊？

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


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


首次只点击bug录入系统，项目名称enter弹出下面的内容

图片点击可在新窗口打开查看此主题相关图片如下：首次.png
图片点击可在新窗口打开查看

然后先点击测试查询系统，啥也没做，再次点击BUG录入系统，项目名称enter弹出下面内容

图片点击可在新窗口打开查看此主题相关图片如下：第二次.png
图片点击可在新窗口打开查看

你看2次弹出的内容都一致。可就是下拉列表没内容了。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

单独做一个按钮，弹出 控件.ComboList ，如果Enter事件是正确的，肯定有其余事件的代码修改了其值。

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


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

正确。
就是不知道哪里的事件影响了。看测试查询修改系统afterload好像也没发现什么问题啊。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

不，可，能。肯定是你没测试清楚。实例
 回到顶部
总数 25 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询