以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  看多了有点蒙了,请问一下这个showtj.htm是自己在目录中创建的吗?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110375)

--  作者:lzw001
--  发布时间:2017/12/1 17:24:00
--  看多了有点蒙了,请问一下这个showtj.htm是自己在目录中创建的吗?
看多了有点蒙了,请问一下这个showtj.htm是自己在目录中创建的吗?


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


--  作者:有点甜
--  发布时间:2017/12/1 17:40:00
--  

不需要创建,这个htm是用代码创建的。

 

    Case "showtj.htm"
        Dim y As Integer = 0
        Dim m As Integer = 0
        Integer.TryParse(e.PostValues("year"), y) \'获取用户输入的 年
        Integer.TryParse(e.PostValues("month"), m) \'获取用户输入的月
        If y = 0 OrElse m = 0 Then
            e.WriteString("请输入正确的年月!")
        Else
            \'根据输入的年月,统计各产品的销售数量
            Dim g As New SQLGroupTableBuilder("统计表1", "订单") \'这里使用后台统计,如果数据已经全部加载可以直接用GroupTableBuilder
            \'g.C \'外部数据表的话要指定数据源名称
            g.Groups.AddDef("产品")
            g.Totals.AddDef("数量")
            g.VerticalTotal = True
            g.Filter = "Year(日期) = " & y & " And Month(日期) = " & m  \'后台统计才可以使用这种表达式的哦
            Dim dt As DataTable = g.Build(False)
            \'将统计结果输出到用户浏览器
            Dim sb As New StringBuilder
            sb.AppendLine(y & "年" & m & "月各产品销售数量: <br/><br/>")
            For Each dr As DataRow In dt.DataRows
                sb.AppendLine(dr("产品") & ":" & dr("数量") & "<br/>")
            Next
            e.WriteString(sb.ToString)
        End If


--  作者:lzw001
--  发布时间:2017/12/1 17:41:00
--  
是这样。。 好的,谢谢