如何把两个字段的合计数值显示在Preview - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如何把“场地费”+ “球费”两个字段相加的和显示在上方的“活动费合计？

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

收到，谢谢老师。

再问下：

Preview页面有很多条记录，怎么实现上一页、下一页翻译功能？

明白了。

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

这行代码出错：字符常量必须包含一个字符。

关于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(" ")

e.WriteString(wb.Build)

加上了，但翻不了页也没有错误提示，点下一页按钮仍然是当前页

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档.txt

按您改完的是空白页，没有数据。

cmd.CommandText是没有问题的，把SQL语句复制到sql里能查询到数据

此主题相关图片如下：qq截图20210325170008.png

哦哦，改过来了，问题解决，谢谢老师。

主题：如何把两个字段的合计数值显示在Preview