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

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

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

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

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

原来的例子，你到底有没有测试过？List函数加上编码

e.ResponseEncoding = "gb2312" '设置网页编码为gb2312