BUG解决明细按钮代码如下:
Dim r As Row = Tables("BUG录入表").CurrentDim dr As DataRowdr = DataTables("BUG研发表").Find("BUG_ID = '" & r("BUG_ID") & "'")If dr IsNot Nothing Then Forms("BUG测试查询解决明细").OpenEnd If
感觉不对,需要怎么修改呢?
希望Forms("BUG测试查询解决明细")窗口显示的数据是BUG研发表和BUG录入表中同一个BUG_ID对应行的数据。
注:Forms("BUG测试查询解决明细")窗口中各个字段都绑定了BUG研发表的列。