| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 目录数显示统计请教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190504) |
| -- 作者：chen_sheng -- 发布时间：2024/2/18 13:19:00 -- 目录数显示统计请教 为什么如下代码老提示 错误所在事件：窗口,入库单,Button_刷新,Click 详细错误信息： 未找到列 [超级管理员]。 Dim g As New SQLGroupTableBuilder("TJB", e.Form.Name) g.C g.Groups.AddDef("创建者") g.Groups.AddDef("创建时间", DateGroupEnum.Year, "年") g.Groups.AddDef("创建时间", DateGroupEnum.Month, "月") g.Groups.AddDef("创建时间", DateGroupEnum.Day, "日") g.Totals.AddDef("ID", AggregateEnum.Count, "行数") Dim gt As DataTable = g.Build(True) \'参数设置为true,生成一个临时表,用完就销毁了 Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildTree(gt, "创建者|年|月|日") trv.StopRedraw For Each nd As WinForm.TreeNode In trv.AllNodes Dim nq As String = nd.DataRow("创建者") Dim Year As Integer = nd.DataRow("年") Dim Month As Integer = nd.DataRow("月") Dim Day As String = nd.DataRow("日") Select Case nd.Level Case 0 nd.Text = nd.text & " (" & gt.Compute("Sum(行数)", "创建者 = " & nq) & "条)" 这个代码不行吗，是不是不能用string作为统计呢么 \'Case 1 \'nd.Text = nd.text & "年(" & gt.Compute("Sum(行数)", "创建者 = " & Cjz & " and 年 = " & Year) & "条)" \'Case 2 \'nd.Text = nd.text & "月(" & gt.Compute("Sum(行数)", "创建者 = " & Cjz & " and 年 = " & Year & " And 月 = " & Month) & "条)" \'Case 3 \'nd.Text = nd.text & "日(" & gt.Compute("Sum(行数)", "创建者 = " & Cjz & " and 年 = " & Year & " And 月 = " & Month & " And 日 = " & Day) & "条)" End Select Next trv.Nodes.Insert("[显示所有行]", "显示所有行(" & Val(gt.Compute("Sum(行数)")) & "条)", 0) trv.ResumeRedraw
|
| -- 作者：有点蓝 -- 发布时间：2024/2/18 13:32:00 -- http://www.foxtable.com/webhelp/topics/1284.htm 表达式中的日期用符号#括起来，数值则不需要任何符号括起来，这些和代码中的格式是一样的，唯一不同的是字符串用单引号括起来。 例如： Tables("订单").Filter = "[产品] = \'PD01\'" \'字符用单引号括起来 gt.Compute("Sum(行数)", "创建者 = \'" & nq & "\'") |