主题：如何生成明细表

在CS结构中，表有个双击事件，双击某一行，可以弹出一个窗口，并根据被双击行的字段进行筛选，生成一个明细表。

在BS结构中，如何实现这个样功能？

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

点击浏览该文件:管理项目2.foxdb

1、双击行没有反应。

2、按帮助的例子，如何把这个主键值赋给其他变量？

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

点击浏览该文件:管理项目2.foxdb

如何把这个r("产品") 值赋给其他变量？

                Dim s As String
                With .Body.AddRow()
                    .Attribute = " & s & "='" & r("产品") & "'""" '""alert('" & r("产品") & "')"""
                    .AddCell(r("产品"))
                    .AddCell(r("数量"))
                End With
                MessageBox.Show(s)

输出的是空值