- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口导航统计 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191671)
-- 发布时间：2024/4/29 19:06:00
-- 窗口导航统计
Dim Page As WinForm.TopicPage
Dim dr As DataRow = e.DataRow
Dim d As Date = dr("开票月份")
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
Dim cnt1 As Integer = DataTables("开票资料").Compute("Count(销售数量)", "开票月份 >= #" & dt1 & "# And D <= #" & dt2 & "#")
Dim cnt2 As Integer = DataTables("开票资料").Compute("Count(销售金额)", "开票月份 >= #" & dt1 & "# And D <= #" & dt2 & "#")
Page = e.Form.Controls("TopicBar1").Pages.Add("本月销售", "本月销售")
Page.Links.Add("销售数量", "销售数量(" & cnt1 & ")")
Page.Links.Add("销售金额", "销售金额(" & cnt2 & ")")
提示这句活错误，Dim dr As DataRow = e.DataRow 在表格是这样变量的，，在窗口要怎么改的，不会了，老师给讲解一下谢谢
-- 发布时间：2024/4/29 20:29:00
--
窗口使用current：http://www.foxtable.com/webhelp/topics/0445.htm
Dim dr As DataRow = Tables("订单").Current.DataRow)
End If
-- 发布时间：2024/4/29 20:52:00
--
统计实现了，，增加数据的时候，不会同时更新统计的，重新登入才会算的，，这个要怎么实现啊
-- 发布时间：2024/4/29 21:03:00
--
方法1、到datacolchanged事件，对应的额数据变化的时候，重新调用统计的代码
-- 发布时间：2024/4/29 21:38:00
--
老师我的意思是 在表上选择的行是3月份统计的就是3月份，，点4月份的统计显示是4月的，，这个代码要写哪里，
此主题相关图片如下：1714397730574.png
-- 发布时间：2024/4/29 22:03:00
--
在导航栏鼠标经过重新统计，，进一次跳一条记录的，，麻烦老师指点一下，要怎么改
此主题相关图片如下：1714399274970.png
-- 发布时间：2024/4/29 22:12:00
--
……
-- 发布时间：2024/4/30 13:58:00
--
老师在请教一下，，数据表不是有选择行，执行代码，直接刷新窗口的TopicBar1是不是可以做到的，，好比鼠标在窗口经过导航栏自动刷新TopicBar1
-- 发布时间：2024/4/30 14:14:00
--
http://www.foxtable.com/webhelp/topics/0641.htm
-- 发布时间：2024/4/30 14:16:00
--
If Tables("开票资料").Current IsNot Nothing Then
Dim dr As DataRow = Tables("开票资料").Current.DataRow
Dim Page As WinForm.TopicPage
Dim d As Date = dr("开票月份")
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
Dim cnt1 As Integer = DataTables("开票资料").Compute("sum(销售数量)", "开票月份 >= #" & dt1 & "# And 开票月份 <= #" & dt2 & "#")
Dim cnt2 As Integer = DataTables("开票资料").Compute("sum(销售金额)", "开票月份 >= #" & dt1 & "# And 开票月份 <= #" & dt2 & "#")
Dim tpb As WinForm.TopicBar = Forms("导航目录").Controls("TopicBar1")
If tpb.Pages("本月销售") Is Nothing Then
Page = tpb.Pages.Add("本月销售", "本月销售")
Page.Links.Add("销售数量", "销售数量(" & cnt1 & ")")
Page.Links.Add("销售金额", "销售金额(" & cnt2 & ")")
Else
Page = tpb.Pages("本月销售")
Page.Links("销售数量").Text = "销售数量(" & cnt1 & ")"
Page.Links("销售金额").Text = "销售金额(" & cnt2 & ")"
End If
End If
谢谢老师，，已经实现了，，变量这里我加了个窗口就会跟新了