[求助]打开窗口，没显示指定行的数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]打开窗口，没显示指定行的数据

共有2664人关注过本帖树形打印复制链接主题：[求助]打开窗口，没显示指定行的数据

huhu

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00

[求助]打开窗口，没显示指定行的数据 发帖心情

Post By：2015/7/21 17:26:00 [显示全部帖子]

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研发表的列。

huhu

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2015/7/21 17:47:00 [显示全部帖子]

以下是引用大红袍在2015/7/21 17:29:00的发言：

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

[此贴子已经被作者于2015/7/21 17:50:27编辑过]

huhu

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2015/7/21 17:57:00 [显示全部帖子]

以下是引用大红袍在2015/7/21 17:49:00的发言：

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

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

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

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

下一主题 >> << 上一主题

主题：[求助]打开窗口，没显示指定行的数据