Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

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


加好友 发短信
等级:幼狐 帖子:149 积分:1289 威望:0 精华:0 注册:2018/12/12 23:23:00
[求助]  发帖心情 Post By:2019/6/26 15:45:00 [只看该作者]

我想图表直接显示当月的订单数据,这样的方法行不行?第10行报错
1-7行反回当月数据
请老师帮忙看一下
以下内容为程序代码:

1 Dim y As Integer = Date.Today.Year
2 Dim m As Integer = Date.Today.Month
3 Dim dt1 As New Date(y, m, 1)
4 Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
5 Dim Filter As String
6 Filter = "订单确认日期 >= #" & dt1 & "# And 订单确认日期 <= #" & dt2 & "#"
7 Tables("已确认的订单").Filter =Filter
8 Dim Chart As WinForm.Chart '定义一个图表变量
9 Dim Series As WinForm.ChartSeries '定义一个图系变量
10 Dim tbl As Tables = Tables("已确认的订单") '定义一个变量tbl引用数据表
11 Dim lst As List(Of String) = tbl.GetValues("客户") '获得客户名称集合
12 Chart = e.Form.Controls("Chart3") ' 引用窗口中的图表
13 Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
14 Chart.SeriesList.Clear() '清除图表原来的图系
15 Chart.AxisY.Major = 5000 '主刻度间隔值为5000
16 Series = Chart.SeriesList.Add() '增加一个图系
17 Series.Length = lst.Count '设置图系的长度
18 For i As Integer = 0 To lst.Count - 1 '指定每个数据点的位置
19 Series.X(i) = i '指定水平坐标
20 Series.Y(i) = tbl.Compute("Sum(拿下金额)","[客户] = '" & lst(i) & "'") '指定垂直坐标
21 Series.DataLabelText = "{#YVAL}"
22 Chart.AxisX.SetValueLabel(i, lst(i)) '指定字符表示
23 Next
24 Chart.AxisX.AnnoWithLabels = True '启用字符标示




图片点击可在新窗口打开查看此主题相关图片如下:tim截图20190626154458.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/26 15:54:00 [只看该作者]

Dim tbl As Table = Tables("已确认的订单") '定义一个变量tbl引用数据表

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


加好友 发短信
等级:幼狐 帖子:149 积分:1289 威望:0 精华:0 注册:2018/12/12 23:23:00
  发帖心情 Post By:2019/6/26 17:42:00 [只看该作者]

显示:getvalues' is not a member or 'table'
客户列是存在的,什么问题?


图片点击可在新窗口打开查看此主题相关图片如下:tim截图20190626173752.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:幼狐 帖子:149 积分:1289 威望:0 精华:0 注册:2018/12/12 23:23:00
回复:(有点甜)Dim tbl As Table = Tables("已确认的...  发帖心情 Post By:2019/6/26 17:46:00 [只看该作者]

甜老师,显示:getvalues' is not a member or 'table'


我这代码是窗口按钮代码,但这窗口内没有绑定“已确认的订单”这个表,会不会是和这有关?


图片点击可在新窗口打开查看此主题相关图片如下:tim截图20190626173752.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/6/26 17:54:01编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/26 17:57:00 [只看该作者]

 

Dim lst As List(Of String) = tbl.DataTable.GetValues("客户") '获得客户名称集合

 


 回到顶部