多行填充一行的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

还是没表述清楚，请看实例，希望点击按钮，光标自动到对应的行

怎么多次上传成功，却看不见

下载信息 [文件大小：下载次数： ]
点击浏览该文件:副本7221.rar

[此贴子已经被作者于2024/7/22 16:50:29编辑过]

例子

[此贴子已经被作者于2024/7/22 16:47:18编辑过]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:副本7221.zip

Dim dt As DataTable

Dim b As New GroupTableBuilder("统计表1", DataTables("发放表"))

b.Groups.AddDef("发放日期", DateGroupEnum.Year, "年")

b.Groups.AddDef("发放日期", DateGroupEnum.Month, "月")

b.Groups.AddDef("发放日期", DateGroupEnum.day, "日")

b.Groups.AddDef("部门名称")

b.Totals.AddDef("人员姓名", AggregateEnum.Count, "订单数")

dt = b.Build(True)

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree(dt, "年|月|日|部门名称")

trv.StopRedraw

For Each nd As WinForm.TreeNode In trv.AllNodes

Dim Year As Integer = nd.DataRow("年")

Dim Month As Integer = nd.DataRow("月")

Dim day As Integer = nd.DataRow("日")

Dim Product As String = nd.DataRow("部门名称")

Select Case nd.Level

Case 0

nd.Text = nd.text & "年(" & dt.Compute("Sum(订单数)", "年 = " & Year) & "条)"

Case 1

nd.Text = nd.text & "月(" & dt.Compute("Sum(订单数)", "年 = " & Year & " And 月 = " & Month) & "条)"

Case 2

nd.Text = nd.text & "日(" & dt.Compute("Sum(订单数)", "年 = " & Year & " And 月 = " & Month) & " And 日 = " & day) & "条)"

Case 3

nd.Text = nd.text & "(" & nd.DataRow("订单数") & "条)"

End Select

trv.Nodes.Insert("显示所有行", "显示所有行(" & dt.Compute("Sum(订单数)") & "条)", 0)

trv.ResumeRedraw

老师, 请看这一句错在哪里了, 怎么修改？

Case 2

nd.Text = nd.text & "日(" & dt.Compute("Sum(订单数)", "年 = " & Year & " And 月 = " & Month) & " And 日 = " & day) & "条)"

nd.Text = nd.text & "日(" & dt.Compute("Sum(订单数)", "年 = " & Year & " And 月 = " & Month & " And 日 = " & day) & "条)"

是我老眼昏花了，看了半天都没发现

'窗口AfterLoad代码：

'首先，表A只加载今日数据（注明：表里还有其他日期的数据）

Dim dt As DataTable = DataTables(“表A")

dt.LoadFilter = "日期 = #" & Date.Today & "#" '

dt.Load()

'然后，再根据条件进行加载,今天15点前的只加载午餐数据,15点后的只加载晚餐数据

Dim d As Date = Date.now '现在时间

Dim t1 As Date = "#" & Date.Today & " 15:00:00#"

Dim t2 As Date = "#" & Date.Today.AddDays(1) & "#"

If d >= t1 AndAlso d < t2 Then

DataTables("表A").LoadFilter = "餐别 = '晚餐'"

DataTables("表A").Load

End If

If d < t1 Then

DataTables("表A").LoadFilter = "餐别 = '午餐'"

DataTables("表A").Load

End If

'老师，请帮忙看一下这个代码哪里错了？

没有必要加载几次，再说逻辑的重点是【今天15点前的只加载午餐数据,15点后的只加载晚餐数据】，那就值需要判断小时就行了，搞那么多花样干啥。还是编程基础没学好

Dim d As Date = Date.now '现在时间

dim filter as string

if d.hour <15 Then

filter ="餐别 = '午餐'"

else

filter ="餐别 = '晚餐'"

end if

DataTables("表A").LoadFilter = filter

DataTables("表A").Load

Dim d As Date = Date.now '现在时间

Dim filter As String

If d.hour < 15 Then

filter = "餐别 = '午餐'"

Else

filter = "餐别 = '晚餐'"

End If

DataTables("表A").LoadFilter = filter

DataTables("表A").Load

'老师，这个代码将其他日期的午餐都加载了，我只需要加载今天的，将

DataTables("表A").LoadFilter = filter改为：DataTables("表A").LoadFilter = filter AndAlso "日期 = #" & Date.Today & "#"

但这样写还是不行？反复试了很多次都没出来，只有请教老师了

[此贴子已经被作者于2024/7/27 10:16:00编辑过]

主题：多行填充一行的问题