Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何把两个字段的合计数值显示在Preview


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

主题：如何把两个字段的合计数值显示在Preview
帅哥哟，离线，有人找我吗？
wh420
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00 		如何把两个字段的合计数值显示在Preview  发帖心情 Post By：2021/3/24 14:17:00 [只看该作者]

如何把“场地费”+ “球费”两个字段相加的和显示在上方的“活动费合计？
    With wb.AddPreview("","pv" & dr("memid"),"活动费合计:",dr("changdifee"))
        
        .AddItem("活动日期:",dr("huodongdate"))
        .AddItem("场地费:" & dr("changdifee"),"球费:" & dr("qiufee"))
        .AddItem("活动人数:" & dr("numpeople"),"人均费用:" & dr("avecost"))
        .AddItem("预存消费:" & dr("yucunkoufee"),"手续费:" & dr("shouxufee"))

    End With
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110784 积分：563852 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/24 14:22:00 [只看该作者]

With wb.AddPreview("","pv" & dr("memid"),"活动费合计:",dr("changdifee")+dr("qiufee"))

 回到顶部
帅哥哟，离线，有人找我吗？
wh420
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00 		  发帖心情 Post By：2021/3/24 14:35:00 [只看该作者]

收到，谢谢老师。
再问下：
Preview页面有很多条记录，怎么实现上一页、下一页翻译功能？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110784 积分：563852 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/24 14:38:00 [只看该作者]

用法一样：http://www.foxtable.com/mobilehelp/topics/0128.htm
只是把帮助里的显示表格改为Preview即可

 回到顶部
帅哥哟，离线，有人找我吗？
wh420
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00 		  发帖心情 Post By：2021/3/24 14:57:00 [只看该作者]

明白了。

With wb.AddPreview("","pv" & dr("memid"),"<b style='font-weight:normal;font-size:16px;color:red'>活动费合计:</b>","<b style='font-weight:normal;font-size:16px;color:red'> dr("changdifee")+ dr("qiufee")</b>")
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110784 积分：563852 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/24 15:05:00 [只看该作者]

With wb.AddPreview("","pv" & dr("memid"),"<b style='font-weight:normal;font-size:16px;color:red'>活动费合计:</b>","<b style='font-weight:normal;font-size:16px;color:red'> " & dr("changdifee")+ dr("qiufee") & "</b>")

 回到顶部
帅哥哟，离线，有人找我吗？
wh420
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00 		  发帖心情 Post By：2021/3/25 16:06:00 [只看该作者]

关于Preview上一页下一页功能，老师帮忙看看代码哪有问题？

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim page As Integer = 0 '默认page为0,显示第一页
Dim pageRows As Integer = 12 '每页10行
If e.GetValues.ContainsKey("page") Then  '如果地址中有page参数
    Integer.TryParse(e.GetValues("page"), page) '提取page参数
End If
Dim StartRow As Integer = page * pageRows + 1 '此页第一行
Dim EndRow As Integer = (page + 1) * pageRows '此页最后一行

With wb.AddTable("","Preview")
    .PageNumber = page '设置页码
    .Primarykey = "memid" '设置主键
End With

With wb.AddButtonGroup("","btg2", False) '生成上一页和下一页按钮
    If page > 0 Then
        .Add("btnPrev", "上一页","","Detail.htm?page=" & page - 1)
    End If
    If Endrow < count Then
        .Add("btnNext", "下一页","","Detail.htm?page=" & page + 1)
    End If
End With

For Each dr As DataRow In DataTables("Table_Mem").SqlSelect("","","huodongdate DESC")
    Dim Total As  Decimal = dr("changdifee")+ dr("qiufee")
    With wb.AddPreview("","pv" & dr("memid"),dr("huodongdate") & "活动费用小计:", "￥" & Total)


        .additem("场地费用:","￥" & dr("changdifee"))
        .AddItem("球费:","￥" & dr("qiufee"))
      
        .Addbutton("点赞", "", 1, "")
    End With
    wb.AppendHTML("<br/>")
    
Next
e.WriteString(wb.Build)
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110784 积分：563852 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/25 16:17:00 [只看该作者]

没看到加载分页数据的功能

'获取该页数据
Dim cmd As New SQLCommand
cmd.Connecti '记得设置数据源名称
cmd.CommandText = "Select Count(*) From {订单}"
Dim Count As Integer = cmd.ExecuteScalar() '获取总的行数
Dim Pages As Integer = Math.Ceiling(Count/PageRows) '计算出总页数
cmd.CommandText = "Select * From (Select  Row_Number() Over(Order by 订单.订单编号 desc ) As RowNum,订单.订单编号,日期,客户,Sum(数量) As 数量,sum(数量*单价) As 金额"
cmd.CommandText = cmd.CommandText & " From 订单 Left JOIN 订单明细 ON 订单明细.订单编号 = 订单.订单编号 Group By {订单}.订单编号,日期,客户) As a "
cmd.CommandText = cmd.CommandText & "  Where RowNum >= " & StartRow & " And RowNum <= " & EndRow
Dim dt As DataTable = cmd.ExecuteReader
 回到顶部
帅哥哟，离线，有人找我吗？
wh420
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00 		  发帖心情 Post By：2021/3/25 16:30:00 [只看该作者]

加上了，但翻不了页也没有错误提示，点下一页按钮仍然是当前页
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:新建文本文档.txt
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110784 积分：563852 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/25 16:37:00 [只看该作者]

……
Dim StartRow As Integer = page * pageRows + 1 '此页第一行
Dim EndRow As Integer = (page + 1) * pageRows '此页最后一行

Dim cmd As New SQLCommand
cmd.Connecti '记得设置数据源名称
cmd.CommandText = "Select Count(*) From {Table_Mem}"
Dim Count As Integer = cmd.ExecuteScalar() '获取总的行数
cmd.CommandText = "Select * From (Select Row_Number() Over(Order by huodongdate desc) As [NO.],[memid],huodongdate as 日期,changdifee as 场地费,qiufee as 球费,numpeople as 人数,avecost as 人均,yucunkoufee as 预存扣,shouxufee as 手续费,clubyucun as 场馆预存,offlinefee as 线下,tixianmoney as 提现,demo as 备注 From Table_Mem) As a "
cmd.CommandText = cmd.CommandText & "  Where [NO.]>= " & StartRow & " And [NO.] <= " & EndRow

Dim dt As DataTable = cmd.ExecuteReader

For Each dr As DataRow In dt.DataRows
    Dim Total As  Decimal = dr("changdifee")+ dr("qiufee")
    With wb.AddPreview("","pv" & dr("memid"),dr("huodongdate") & "活动费用小计:", "￥" & Total)
        .additem("场地费用:","￥" & dr("changdifee"))
        .AddItem("备注内容:",dr("demo"))
        .Addbutton("点赞", "", 1, "")
    End With
    wb.AppendHTML("<br/>")
    
Next
……
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.10938 秒, 5 次数据查询