Dim t As Table = Tables("统计表1") \'定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形)
Chart.DataSource = "统计表1" \'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.X.DataField = "产品" \'X轴绑定到产品列
Series.Y.DataField = "数量" \'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL}"

以上代码是帮助中的实例代码

求修正实现如下效果：

1、只显示对应月份的数据，比如只显示当前时间对应的月份数据。

2、产品列 由于字数不一定固定，所以会存在大于15个字符的字，有没有办法让字换行显示。

3、补充1的问题，让数据只显示对应七天的数据

1、已经用代码对应生成

2、采用名称咧角度变化 效果不美观

3、设置了筛选条件  但是不知道怎么结合代码整体实现 

下面的代码就是实现筛选本周信息 然后会图表 求指导

Dim  y As  Integer =  Date.Today.Year
 Dim  w As  Integer =  Date.Today.DayOfWeek  \'算出今天是星期几
Dim  dt1 As  Date =  Date.Today.AddDays(-w)  \'获取本周的第一天
Dim  dt2 As  Date =  Date.Today.AddDays(6 -  w)  \'获取本周的最后一天
Dim  Filter As  String
 Filter =  "接单日期 >= #"  &  dt1  &  "# And  接单日期 <= #"  &  dt2  &  "#"
 Tables("客户信息").Filter =  Filter

红色部分怎么按照你的思路获取字符数然后换行呢  假设五个字后换行

2号问题还是没有得以解决 继续求助

当前运行效果如图

处理长字符，参考代码

Dim s As String = "111113"
Dim rn As Integer = 5
Dim ns As String = ""
If s.Length > rn Then
    ns = s.SubString(0,rn)
    For i As Integer = 2 To Math.Ceiling(s.Length / rn)
        If i = Math.Ceiling(s.Length / rn) Then
            ns &= vbcrlf & s.SubString(rn*(i-1))
        Else
            ns &= vbcrlf & s.SubString(rn*(i-1), rn)
        End If
    Next
Else
    ns = s
End If

msgbox(ns)

经过对比  对于图标里面的这个操作还是无法实现大于五个字符时候换行 一旦先行换行 然后再赋值的话 提示没有对应的值  继续求解！

由于第一次操作图表 没有实际经验 还望大红袍老师多多指导  再次谢谢

Dim Chart  As WinForm.Chart  \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table =  Tables("客户信息") \'定义一个变量t引用数据表
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.DataSource = "客户信息" \'设置绑定表
Chart.ChartType = ChartTypeEnum.Bar
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = t.Rows.Count \'设置图系的长度
For i As Integer =  0  To t.Rows.Count -  1  \'指定每个数据点的位置
    Series.X(i) = i \'指定水平坐标
    Series.Y(i) = t.Rows(i)("合同总款") \'指定垂直坐标
    Chart.AxisX.SetValueLabel(i, t.Rows(i)("客户姓名") )\'在位置4插入456) \'指定字符表示
Next
Series.DataLabelText = "{#YVAL}元"
 Chart.AxisX.AnnoWithLabels = True \'启用字符标

Dim s1 As Row= Tables("客户信息").Current
Dim s As String = s1("客户姓名")
Dim rn As Integer = 5
Dim ns As String = ""
If s.Length > rn Then
    ns = s.SubString(0,rn)
    For i As Integer = 2 To Math.Ceiling(s.Length / rn)
        If i = Math.Ceiling(s.Length / rn) Then
            ns &= vbcrlf & s.SubString(rn*(i-1))
        Else
            ns &= vbcrlf & s.SubString(rn*(i-1), rn)
        End If
    Next
Else
    ns = s
End If

很湿望

Dim Chart  As WinForm.Chart  \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table =  Tables("客户信息") \'定义一个变量t引用数据表
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.DataSource = "客户信息" \'设置绑定表
Chart.ChartType = ChartTypeEnum.Bar
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = t.Rows.Count \'设置图系的长度
For i As Integer =  0  To t.Rows.Count -  1  \'指定每个数据点的位置
    Series.X(i) = i \'指定水平坐标
    Series.Y(i) = t.Rows(i)("合同总款") \'指定垂直坐标
   
    Dim s As String = t.Rows(i)("客户姓名")
    Dim rn As Integer = 5
    Dim ns As String = ""
    If s.Length > rn Then
        ns = s.SubString(0,rn)
        For i As Integer = 2 To Math.Ceiling(s.Length / rn)
            If i = Math.Ceiling(s.Length / rn) Then
                ns &= vbcrlf & s.SubString(rn*(i-1))
            Else
                ns &= vbcrlf & s.SubString(rn*(i-1), rn)
            End If
        Next
    Else
        ns = s
    End If
   
    Chart.AxisX.SetValueLabel(i,  ns)\'在位置4插入456) \'指定字符表示
Next
Series.DataLabelText = "{#YVAL}元"
Chart.AxisX.AnnoWithLabels = True \'启用字符标

谢谢