Foxtable(狐表)用户栏目专家坐堂 → 手机订单


  共有4096人关注过本帖树形打印复制链接

主题:手机订单

帅哥哟,离线,有人找我吗?
qazlinle6
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
手机订单  发帖心情 Post By:2021/8/4 15:47:00 [显示全部帖子]


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

这个内容什么实现

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By: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


多个内容显示什么弄

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2021/8/4 17:34:00 [显示全部帖子]


[此贴子已经被作者于2021/8/5 0:10:22编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By: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
[

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2021/8/5 10:19:00 [显示全部帖子]

账号企业名

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By: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

合计什么合计

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2021/8/5 11:13:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq浏览器截图20210805111150.png
图片点击可在新窗口打开查看



不是这样的,我只要合计一个店的,一个店只显示一行

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2021/8/5 11:46:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq浏览器截图20210805114353.png
图片点击可在新窗口打开查看


Select Case e.Path
    Case "销售合计.htm"
        
        Dim ddr As DataRow= DataTables("Users").SQLFind("Name='"& e.Cookies("username")  &"' " )
        ....... 销售合计 where 日期 = '" & Date.Today & "' And ('," & ddr("账号企业名") & ",') like '%,' + 店名 + ',%' "   
        Dim dt As DataTable = cmd.ExecuteReader
        With wb.AddPanelGroup("","pg1","销售合计列表")
            For Each pr As DataRow In dt.DataRows
            For Each a As String In dt.getvalues("店名")
Dim aaa As Double = dt.compute("sum(提成实收金额)","店名='" & a  & "' " )
Dim aaa1 As Double = dt.compute("sum(实收金额)","店名='" & a  & "' " )
                With  .Add("pn"& pr("店名"),pr("店名"),"提成金额:"& aaa & " | 实收金额:"& aaa1 & " | 营业员:"& pr("营业员"),"./images/购物车.gif","http://www.foxtable.com")
.Badge = pr("店名")
                    '.AddFoot("提成金额:"& pr("提成实收金额"))
                    '.AddFoot("实收金额:"& pr("实收金额"))
                End With
            Next
Next
        End With
End Select
越显示越多了

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2021/8/5 12:02:00 [显示全部帖子]

        Dim dt As DataTable = cmd.ExecuteReader
这个吗

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2021/8/5 14:50:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:下载.png
图片点击可在新窗口打开查看


下面可不可以在加一行内容

 回到顶部
总数 15 1 2 下一页