主题：同一 问题，提出几次，没有解决，再次提出。

问题是：127.0.0.1:88 / list，显示各产品的汇总数。希望选中某行，点“明细”按钮能筛选出某产品的相关数据。

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

点击浏览该文件:新建文件夹.rar

要说多少遍？取值，然后赋值。

        var k1 = table1.rows[0].cells[0].innerHTML;
        var k2 = table1.rows[table1.rowSel].cells[0].innerHTML;
        location="/mx?key1=" + k1 + "&key2=" + k2;

需要通过代码进一步筛选。需要把这个K1和K2的值传递给变量的。

如何实现呀？

内部函数mx

Dim e As RequestEventArgs = args(0)
'获取该页数据
Dim cm d As New SQLCo mmand
'cmd.Conn ect i '记得设置数据源名称
cmd.Comm andText = "Sel ect 产品,数量 Fro m {订单} where 产品='梨'"
Dim dt As DataTable = cmd.Exe cuteReader
Dim wb As New WeUI
Se lect Case e.Path
    Case "mx"
        '根据此页数据生成网页
        With wb.AddTable("","Table1")
            .CreateFromDataTable(dt)
        End With
        e.WriteString(wb.Build)
End Se lect

根据没有哇

无语，看你上传的那一个项目啊

Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
Select Case e.Path
    Case "mx"
        '获取该页数据
        Dim cmd As New SQLCommand
        'cmd.C '记得设置数据源名称
       
        If e.GetValues.ContainsKey("key1") Then
            Dim key1 As String = e.Values("key1")
            Dim key2 As String = e.GetValues("key2")
            cmd.CommandText = "Select 第六列,* From {订单} where " & key1 & " = '" & key2 & "'"
        Else
            cmd.CommandText = "Select 第六列,* From {订单}"
        End If
        Dim dt As DataTable = cmd.ExecuteReader
        '根据此页数据生成网页
        With wb.AddTable("","Table1")
            .CreateFromDataTable(dt)
        End With
        e.WriteString(wb.Build)
End Select