建议还是使用菜单: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 = "ondblclick=""alert('" & r("产品") & "')"""
.AddCell(r("产品"))
.AddCell(r("数量"))
End With
Next
End With
e.WriteString(wb.Build)
End Select
[此贴子已经被作者于2017/3/13 9:48:25编辑过]