主题：图表

Dim cb As new CrossTableBuilder("客户欠款",jb.BuildSQL)
cb.C
cb.VGroups.AddDef("客户")
cb.HGroups.AddDef("作业日期",DateGroupEnum.Year,"年")
cb.HGroups.AddDef("作业日期",DateGroupEnum.Month,"月")
cb.Totals.AddDef("利润分析")
cb.Build()

Dim Chart As WinForm.Chart = e.Form.Controls("Chart4")
Dim Series As WinForm.ChartSeries
Chart.DataSource = "客户欠款"
Chart.ChartType = ChartTypeEnum.Bar
Chart.SeriesList.Clear()

For Each i As Col In Tables("客户欠款").Cols
    If i.Name <> "月" Then
        Series = Chart.SeriesList.Add()
        Series.Text = i.Caption
        Series.X.DataField = "月"
        Series.Y.DataField = i.Name
        Series.DataLabelText = "{#YVAL}"
        Series.DataLabelBackColor = Color.DimGray
        Series.DataLabelForeColor = Color.white
        Series.DataLabelCompass = LabelCompassEnum.West
        Series.Y.DataType = Gettype(Double)
    End If
Next
Chart.Axisx.Major = 1
Chart.Inverted = True
Chart.Stacked = True
Chart.LegendVisible = True
Chart.LegendCompass = CompassEnum.East
哪位高手帮忙。x绑定的是”月“ 。希望显示出来的是。年和月  比如2013年11月

此主题相关图片如下：2013-11-21 15-18-31.jpg

这个好像没有办法呢.

For Each r As Row In Tables("客户欠款").Rows
    r("月")=r("年") & r("月")
Next
加这个代码为什么会出错
此主题相关图片如下：2013-11-21 15-44-15.jpg

月份是数值类型,不能把字符串赋值给它

三楼的错误，将月份列改为整数型吧。

搞不定的话，直接上个简单的例子来测试吧，不要整个项目上传。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

不用绑定，逐个点添加数据，看这里的方法二：

 

http://www.foxtable.com/help/topics/0968.htm

 

这样可以随心设置坐标轴的显示格式。

给下代码吧。理解不了

呵呵，不能偷懒，这里的方法二，你不可能理解不了：

http://www.foxtable.com/help/topics/0968.htm

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目100.table