主题：求助：在帮助中有图表是按照日来显示的，我想问问这个日是否可以只显示当前月份的日数呢？

 不要绑定啊，用上次教你的方法二啊

Dim g As New GroupTableBuilder("统计表1", DataTables("订单"))
g.Groups.AddDef("日期", DateGroupEnum.day)
g.Totals.AddDef("金额", AggregateEnum.sum)
Dim d As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
g.Filter = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"
g.Build()
MainTable = Tables("统计表1")

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("统计表1") '定义一个变量t引用数据表
Chart= Forms("窗口2").Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
chart.AxisX.ClearValueLabel
Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形)
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = Date.DaysInMonth(d.Year, d.Month) + 1 '设置图系的长度
For i As Integer = 1 To series.Length   '指定每个数据点的位置
    Dim idx As Integer = t.FindRow("日期 = " & i)
    If Idx >= 0 Then
        Series.X(i) = i '指定水平坐标
        Series.Y(i) = t.Rows(idx)("金额") '指定垂直坐标
        Chart.AxisX.SetValueLabel(i, t.Rows(idx)("日期")) '指定字符表示
    Else
        Series.X(i) = i '指定水平坐标
        Series.Y(i) = 0
        Chart.AxisX.SetValueLabel(i, i) '指定字符表示
    End If
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示