- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 将WeUI的内容保存为多个HTML问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177576)
-- 发布时间：2022/5/27 9:51:00
-- 将WeUI的内容保存为多个HTML问题
如附件代码，通过遍历每个员工来查询对应的工资，以HTML的格式单独保存在项目固定路径文件中，保存没有问题，保存后的文件打开预览后发现，从第2个文件开始内容都是自己加上前面的所有员工的工资？没有分开。例如：第1个是张三，第2个是李四，李四的工资除了自己的还包括张三的，第3个员工的工资除了自己还包括李四和张三的，依次类推，最后一位员工的是所有人的。没有按照查询过滤分开，怎么修改？谢谢！
-- 发布时间：2022/5/27 10:04:00
--
Dim cmd As New SQLCommand
Dim dt as datatable
Dim dtt as datatable
cmd.Connecti
cmd.CommandText= "SELECT distinct 日报员工 from V_APP_本月日报明细"
dt = cmd.ExecuteReader()
If dt.DataRows.Count > 0 then
Dim rbyg As List(Of String)
rbyg = dt.GetValues("日报员工")
For Each xm As String In rbyg
\'messagebox.show(xm)
cmd = New SQLCommand
cmd.ConnectionName = "数据源"
cmd.CommandText= "SELECT 日报日期,日报员工,工序_名称 as 工序,订单编号,sum(金额) as 金额 from V_APP_本月日报明细 WHERE 日报员工 = \'" & xm & "\' group by 日报日期,日报员工,工序_名称,订单编号 ORDER BY 日报日期,工序_名称,订单编号"
dtt = cmd.ExecuteReader()
-- 发布时间：2022/5/27 10:25:00
--
老师，改完测试还是一样。
-- 发布时间：2022/5/27 10:31:00
--
没理由的
msgbox("SELECT 日报日期,日报员工,工序_名称 as 工序,订单编号,sum(金额) as 金额 from V_APP_本月日报明细 WHERE 日报员工 = \'" & xm & "\' group by 日报日期,日报员工,工序_名称,订单编号 ORDER BY 日报日期,工序_名称,订单编号")
-- 发布时间：2022/5/27 10:33:00
--
我再试试，查询前调试的姓名有没问题，也都是单个员工。
-- 发布时间：2022/5/27 10:54:00
--
老师，问题解决了，Dim wb As New weui 这个框架生成器要放到下面这个位置，问题就解决了，放置所有代码前面就会有那个问题，没搞懂啥原因。
If dtt.datarows.Count > 0 then
Dim wb As New weui
With wb.AddTable("",xm)
.Highlight = 0 \'0 高亮显示行列 1 仅高亮显示行 2 仅高亮显示列 -1 关闭高亮显显示
.Alternate = 2 \'每两行显示一个不同背景颜色的行,整数型的Alternate属性，用于设置每多少行显示一个不同背景颜色的行。
.CreateFromDataTable(dtt)
.body.AddRow("合计",dtt.Compute("sum(金额)"))
End With
Dim NewName As String
NewName = "E:\\Setup\\WebWXSerXHBSS\\project\\web\\fl\\gongzi\\" & xm & ".html"
wb.Save(NewName)
End If
-- 发布时间：2022/5/27 11:03:00
--
不应该和这个有关。改回去重新测试一下？
-- 发布时间：2022/5/27 14:22:00
--
改回去测试后又是那样
-- 发布时间：2022/5/27 14:32:00
--
完整代码发上来看看
-- 发布时间：2022/5/27 15:22:00
--
这是改后的代码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |