主题：如何生成明细表

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

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

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

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

建议还是使用菜单：http://www.foxtable.com/mobilehelp/scr/0117.htm

双击事件参考：http://www.w3school.com.cn/tags/event_ondblclick.asp

Dim e As RequestEventArgs = args(0)
Dim cmd As new sqlcommand

Select Case e.Path
    Case "test"
        '获取该页数据
        cmd.CommandText = "Sele ct 第一列 as 产品,sum(第二列) as 数量 Fro m {表A} group by 第一列"
        Dim dt As DataTable = cmd.ExecuteReader
        '生成菜单
        Dim wb As New WeUI

        With wb.AddTable("","Table1")
            .Alternate = 3
            Dim nms() As String = {"产品","数量"}
            .Head.AddRow(nms)
 For Each r As DataRow In dt.DataRows
                With .Body.AddRow()
                    .Attribute = "ondｂlclick=""alert('" & r("产品") & "')"""
                    .AddCell(r("产品"))
                    .AddCell(r("数量"))
                End With
            Next

        End With
        e.WriteString(wb.Build)
End Select

1、双击行没有反应。

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

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

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

汗，论坛屏蔽了部分代码：

 For Each r As DataRow In dt.DataRows
                With .Body.AddRow()
                    .Attribute = "onｄblclick=""alert('" & r("产品") & "')"""
                    .AddCell(r("产品"))
                    .AddCell(r("数量"))
                End With
            Next

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

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

输出的是空值

使用js函数，参考帮助的用法：http://www.foxtable.com/mobilehelp/scr/0128.htm

建议移动开发的帮助先系统过一遍吧。特别是【使用关联表】这章的内容：http://www.foxtable.com/mobilehelp/scr/0124.htm