在“区分项目”时图表无法绑定。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim e As Object = Args(0)
'生成统计表
Dim g As New CrossTableBuilder("统计表1", DataTables("lxtj"))
g.HGroups.AddDef("rq", DateGroupEnum.Year, "年")
g.VGroups.AddDef("xm")
g.Totals.AddDef("je", "金额(万元)")
g.Totals.AddDef("sl", "数量")
g.Build()
'For Each c As Col In Tables("统计表1").cols
'If c.IsNumeric Then
'c.Table.DataTable.ReplaceFor(c.name, 0, c.name & " is null")
'End If
'Next

'============生成图表==============
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("统计表1") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType2 = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.AxisX.Major=1
Chart.AxisY.Major=10
Chart.AxisY2.Major=10
Chart.AxisX.ClearValueLabel
Dim C1Chart1 As C1Chart.C1Chart = CType(Chart.BaseControl,C1Chart.C1Chart)

For Each c As Col In t.Cols
    If c.Name <> "年" AndAlso c.Caption.Contains("金额") Then
        Series = Chart.SeriesList.Add() '增加一个图系
        Series.Text = c.Caption ' Name '设置图系的标题
        series.Length = t.Rows.count
        For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置
            Series.X(i) = i '指定水平坐标
            Series.Y(i) = val(t.Rows(i)(c.name)) '指定垂直坐标
            Chart.AxisX.SetValueLabel(i, t.Rows(i)("年")) '指定字符表示
        Next
        series.DataLabelText = "{#YVAL}"

End If
Next

Chart.SeriesList2.Clear() '清除图表原来的图系
Chart.ChartType = ChartTypeEnum.XYPlot '图表2类型该为线形
Dim idx2 As Integer = 0
For Each c As Col In t.Cols
    If c.Name <> "年" AndAlso c.Caption.Contains("数量") Then
        Series = Chart.SeriesList2.Add() '增加一个图系
        Series.Text = c.Caption ' Name '设置图系的标题
        series.Length = t.Rows.count
        For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置
            Series.X(i) = i '指定水平坐标
            Series.Y(i) = val(t.Rows(i)(c.name)) '指定垂直坐标
            Chart.AxisX.SetValueLabel(i, t.Rows(i)("年")) '指定字符表示
            Dim Label1 = C1Chart1.ChartLabels.LabelsCollection.AddNewLabel()
            With Label1
                .Text = c.Caption & "(" & t.Rows(i)(c.name) & ")"
                .AttachMethod = C1Chart.AttachMethodEnum.DataIndex
                .AttachMethodData.GroupIndex = 1
                .AttachMethodData.SeriesIndex = idx2
                .AttachMethodData.PointIndex = i
                .Compass = 0
                .Offset = 5
                .Visible = True
            End With

        Next
        idx2 += 1
    End If
Next

Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

主题：在“区分项目”时图表无法绑定。