以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]DoubleClickRowHeader  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82272)
--  作者：huhu
--  发布时间：2016/3/15 9:30:00
--  [求助]DoubleClickRowHeader
DoubleClickRowHeader代码就一句，打开BUG录入系统窗体。
Forms("BUG录入系统").Open()

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("状态") = "待提交"
Tables("BUG录入表").sort = "BUG_ID DESC"
e.Form.Controls("必现").Enabled = True
e.Form.Controls("可重现").Enabled = True
e.Form.Controls("难重现").Enabled = True
e.Form.Controls("不能重现").Enabled = True

我先想要做的事情是，双击表头，打开的仍然是BUG录入系统窗体，但不要新增行了。而是显示表头行对应的BUG_ID的信息。
--  作者：大红袍
--  发布时间：2016/3/15 10:12:00
--  

DoubleClickRowHeader事件

 

vars("事件") = "dcrh"

Forms("BUG录入系统").Open()

vars("事件") = ""

 

AfterLoad事件

 

If vars("事件") = "" Then

    \'新增行等代码

End If