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的信息。
加好友 
发短信
Post By：2016/3/15 9:30:00 [只看该作者]
