BUG解决明细按钮代码如下：

Dim r As Row = Tables("BUG录入表").Current
Dim dr As DataRow
dr = DataTables("BUG研发表").Find("BUG_ID = \'" & r("BUG_ID") & "\'")
If dr IsNot Nothing Then
    Forms("BUG测试查询解决明细").Open
End If

感觉不对，需要怎么修改呢？

希望Forms("BUG测试查询解决明细")窗口显示的数据是BUG研发表和BUG录入表中同一个BUG_ID对应行的数据。

注：Forms("BUG测试查询解决明细")窗口中各个字段都绑定了BUG研发表的列。

Dim r As Row = Tables("BUG录入表").Current
Dim idx As Integer = Tables("BUG研发表").FindRow("BUG_ID = \'" & r("BUG_ID") & "\'")
If idx >= 0 Then

    Tables("BUG研发表").Position = idx
    Forms("BUG测试查询解决明细").Open
End If

还是不对啊。

窗口BUG测试查询系统---》BUG解决详情按钮代码如上。

打开的窗口是BUG测试查询解决明细。

请看看为什么打开的不是对应的BUG_ID数据。

密码liujy

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:临时版本跟踪系统1225.rar

 1、加入代码看弹出什么 msgbox(idx)

 2、确认Tables("BUG研发表")表有要查的数据

1、加入代码看弹出什么 msgbox(idx) ------------0----为什么是0，我就搞不清楚了。

 2、确认Tables("BUG研发表")表有要查的数据---------确实是有要查找的数据。

0说明是第1行啊。那就试试

Dim r As Row = Tables("BUG录入表").Current

Tables("BUG研发表").Filter = ""
Dim idx As Integer = Tables("BUG研发表").FindRow("BUG_ID = \'" & r("BUG_ID") & "\'")

msgbox(idx)
If idx >= 0 Then

    Tables("BUG研发表").Position = idx
    Forms("BUG测试查询解决明细").Open
End If