以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  手机订单  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170708)
--  作者：qazlinle6
--  发布时间：2021/8/4 15:47:00
--  手机订单

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20210804154533.jpg
图片点击可在新窗口打开查看

这个内容什么实现
--  作者：有点蓝
--  发布时间：2021/8/4 16:01:00
--  
参考：http://www.foxtable.com/mobilehelp/topics/0142.htm
--  作者：qazlinle6
--  发布时间：2021/8/4 16:50:00
--  
Select Case e.Path
    Case "销售合计明细.htm"
......
               ......
......               
 Dim dt As DataTable = cmdExecuteReader
                For Each pr As DataRow In dt.DataRows

        Dim txt As String = "123456789"
        With wb.AddPanelGroup("","pg1","图文组合列表")
            With  .Add("pn1",pr("编号"),txt,"./images/button.png","http://www.foxtable.com")
                .AddFoot("提成金额:")

End With
                End With
Next
End Select


多个内容显示什么弄
--  作者：有点蓝
--  发布时间：2021/8/4 17:09:00
--  
......               
 Dim dt As DataTable = cmdExecuteReader
With wb.AddPanelGroup("","pg1","图文组合列表")
    For Each pr As DataRow In dt.DataRows
        
        Dim txt As String = "123456789"
        With  .Add("pn" & pr("编号"),pr("编号"),txt,"./images/button.png","http://www.foxtable.com")
            .AddFoot("提成金额:")
            
        End With
    Next
End With
End Select
--  作者：qazlinle6
--  发布时间：2021/8/4 17:34:00
--  

[此贴子已经被作者于2021/8/5 0:10:22编辑过]
--  作者：qazlinle6
--  发布时间：2021/8/5 0:10:00
--  

Select Case e.Path
    Case "销售合计明细.htm"
        
        Dim ddr As DataRow= DataTables("Users").SQLFind("Name=\'"& e.Cookies("username")  &"\' " )
       .....
       ...... where 日期 = \'" & Date.Today & "\'   And (\',\'+店名+\',\') like \'%," & ddr("账号企业名") & ",%\' "    列是多值的不起做用
        ....
        With wb.AddPanelGroup("","pg1","销售合计列表")
            
            For Each pr As DataRow In dt.DataRows
                
                Dim txt As String = " "
                With  .Add("pn"& pr("编号"),pr("编号"),"提成金额:"& pr("提成实收金额"),"./images/购物车.gif","http://www.foxtable.com")
                    .AddFoot("提成金额:"& pr("提成实收金额"))
                    
                End With
            Next
        End With
        
        
End Select
[
--  作者：有点蓝
--  发布时间：2021/8/5 9:01:00
--  
店名是多值的？还是账号企业名是多值的？还是2个都是多值的。
--  作者：qazlinle6
--  发布时间：2021/8/5 10:19:00
--  
账号企业名
--  作者：有点蓝
--  发布时间：2021/8/5 10:25:00
--  
where 日期 = \'" & Date.Today & "\'   And (\'," & ddr("账号企业名") & ",\') like \'%,\' + 店名 + \',%\' "   
--  作者：qazlinle6
--  发布时间：2021/8/5 10:45:00
--  
Select Case e.Path
    Case "销售合计.htm"
        
        Dim ddr As DataRow= DataTables("Users").SQLFind("Name=\'"& e.Cookies("username")  &"\' " )
   .....
        ..... 日期 = \'" & Date.Today & "\' And (\'," & ddr("账号企业名") & ",\') like \'%,\' + 店名 + \',%\' "   
        Dim dt As DataTable = cmd.ExecuteReader

        With wb.AddPanelGroup("","pg1","销售合计列表")
            For Each pr As DataRow In dt.DataRows

                With  .Add("pn"& pr("店名"),pr("店名"),"提成金额:"& pr("提成实收金额") & " | 实收金额:"& pr("实收金额")& " | 营业员:"& pr("营业员"),"./images/购物车.gif","http://www.foxtable.com")
.Badge = pr("店名")
                    \'.AddFoot("提成金额:"& pr("提成实收金额"))
                    \'.AddFoot("实收金额:"& pr("实收金额"))
                End With
            Next
        End With
End Select

合计什么合计