Foxtable(狐表)用户栏目专家坐堂 → 窗口导航统计


  共有1626人关注过本帖树形打印复制链接

主题:窗口导航统计

帅哥哟,离线,有人找我吗?
wlj88868
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1396 威望:0 精华:0 注册:2016/4/27 9:39:00
窗口导航统计  发帖心情 Post By:2024/4/29 19:06:00 [只看该作者]

Dim Page As WinForm.TopicPage
Dim dr As DataRow = e.DataRow
Dim d As Date = dr("开piao月份")
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("开piao资料").Compute("Count(销售数量)", "开piao月份 >= #" & dt1 & "# And D <= #" & dt2 & "#")
Dim cnt2 As Integer = DataTables("开piao资料").Compute("Count(销售金额)", "开piao月份 >= #" & 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  在表格是这样变量的,,在窗口要怎么改的,不会了,老师给讲解一下谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110333 积分:561507 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/29 20:29:00 [只看该作者]

窗口使用current:http://www.foxtable.com/webhelp/topics/0445.htm

If Tables("订单").Current IsNot Nothing Then
    
Dim dr As DataRow  = Tables("订单").Current.DataRow)
……
……
End If

 回到顶部
帅哥哟,离线,有人找我吗?
wlj88868
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1396 威望:0 精华:0 注册:2016/4/27 9:39:00
  发帖心情 Post By:2024/4/29 20:52:00 [只看该作者]

统计实现了,,增加数据的时候,不会同时更新统计的,重新登入才会算的,,这个要怎么实现啊

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110333 积分:561507 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/29 21:03:00 [只看该作者]

方法1、到datacolchanged事件,对应的额数据变化的时候,重新调用统计的代码
2、点击按钮重新执行统计

 回到顶部
帅哥哟,离线,有人找我吗?
wlj88868
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1396 威望:0 精华:0 注册:2016/4/27 9:39:00
  发帖心情 Post By:2024/4/29 21:38:00 [只看该作者]

老师我的意思是 在表上选择的行是3月份统计的就是3月份,,点4月份的统计显示是4月的,,这个代码要写哪里,
图片点击可在新窗口打开查看此主题相关图片如下:1714397730574.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
wlj88868
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1396 威望:0 精华:0 注册:2016/4/27 9:39:00
  发帖心情 Post By:2024/4/29 22:03:00 [只看该作者]

在导航栏鼠标经过重新统计,,进一次跳一条记录的,,麻烦老师指点一下,要怎么改
图片点击可在新窗口打开查看此主题相关图片如下:1714399274970.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110333 积分:561507 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/29 22:12:00 [只看该作者]

……
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim cnt1 As Integer = DataTables("开piao资料").Compute("Count(销售数量)", "开piao月份 >= #" & dt1 & "# And D <= #" & dt2 & "#")
Dim cnt2 As Integer = DataTables("开piao资料").Compute("Count(销售金额)", "开piao月份 >= #" & dt1 & "# And D <= #" & dt2 & "#")
Dim tpb As WinForm.TopicBar = e.Form.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

 回到顶部
帅哥哟,离线,有人找我吗?
wlj88868
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1396 威望:0 精华:0 注册:2016/4/27 9:39:00
  发帖心情 Post By:2024/4/30 13:58:00 [只看该作者]

老师在请教一下,,数据表不是有选择行,执行代码,直接刷新窗口的TopicBar1是不是可以做到的,,好比鼠标在窗口经过导航栏自动刷新TopicBar1


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110333 积分:561507 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/30 14:14:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
wlj88868
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1396 威望:0 精华:0 注册:2016/4/27 9:39:00
  发帖心情 Post By:2024/4/30 14:16:00 [只看该作者]

If Tables("开piao资料").Current IsNot Nothing Then
    Dim dr As DataRow = Tables("开piao资料").Current.DataRow
    Dim Page As WinForm.TopicPage
    Dim d As Date = dr("开piao月份")
    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("开piao资料").Compute("sum(销售数量)", "开piao月份 >= #" & dt1 & "# And  开piao月份 <= #" & dt2 & "#")
    Dim cnt2 As Integer = DataTables("开piao资料").Compute("sum(销售金额)", "开piao月份 >= #" & dt1 & "# And  开piao月份 <= #" & 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

 

 

谢谢老师,,已经实现了,,变量这里我加了个窗口就会跟新了


 回到顶部
总数 11 1 2 下一页