[求助] 统计表中月份不以数字显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim g As New CrossTableBuilder("业务月份统计", DataTables("订单明细"))

g.HGroups.AddDef("出货日期", "月")

g.VGroups.AddDef("业务员")

g.Totals.AddDef("金额", "金额")

g.Build()

'MainTable = Tables("统计表4")

这样生成的统计表列中月的是1，2，3，4

可不可以变成1月，2月，3月

Dim g As New CrossTableBuilder("业务月份统计", DataTables("订单明细"))

g.HGroups.AddDef("业务员")

g.VGroups.AddDef("出货日期", "{0}月")

g.Totals.AddDef("金额", "金额")

g.Build()

'MainTable = Tables("统计表4")

Tables("统计_统计表").DataSource = DataTables("业务月份统计")

Tables("统计_统计表").AutoSizeCols

Dim Chart As WinForm.Chart = e.Form.Controls("月业绩图表")

Dim de As String = Date.Today.Month -1 & "月"

'Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim t As Table = Tables("业务月份统计") '定义一个变量t引用数据表

'Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表

Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)

Series = Chart.SeriesList.Add() '增加一个图系

Series.Length = t.Rows.Count '设置图系的长度

For r As Integer = 0 To t.Rows.Count - 1

Series.X(r) = r ' t.Rows(r)("月") & "月"

'Series.X(i) = t.Rows(i)("月份") '指定水平坐标

Series.Y(r) = t.Rows(r)("7月")

Chart.AxisX.SetValueLabel(r, t.Rows(r)("业务员")) '指定字符表示

Chart.AxisX.AnnoWithLabels = True '启用字符标示

Series.DataLabelText = "{#YVAL}"

为什么会有错误提示，说列“7月”不属于表业务月份统计。

[此贴子已经被作者于2016/8/3 20:01:53编辑过]

Dim g As New CrossTableBuilder("业务月份统计", DataTables("订单明细"))

g.HGroups.AddDef("业务员")

g.VGroups.AddDef("出货日期", "{0}月")

g.Totals.AddDef("金额", "金额")

g.Build()

大红袍老师，我看到了，那怎么样可以把标题跟列名一样！

问题2，如何可以查找表中是否存在某列，，

如果不存在的话，

则显示最大的月份列

此主题相关图片如下：4.png

[此贴子已经被作者于2016/8/4 8:11:22编辑过]

主题最新回顾(发布时间：2016/8/4 8:58:00)
-- 作者：Hyphen -- 1.参考http://www.foxtable.com/webhelp/scr/1275.htm 2.参考http://www.foxtable.com/webhelp/scr/1428.htm If DataTables("订单").DataCols.Contains("金额") Then '...... End If

Hyphen 老师，我那个是用统计表生成的，你那代码，我如何再修改过来。问题是列名里会有什么，也得年明细表里的内容。没办法用名称直接替换

Dim de As String = Date.Today.Month -1 & "月"

dim k as string

For Each dc As DataCol In DataTables("业务月份统计").DataCols
if dc.name = de then

k= dc.name

else

最新月份的列（这里的代码怎么写）
Next

谢谢，还差第一个问题。如何让标题和列名一致，在统计表生成的时候。

主题：[求助] 统计表中月份不以数字显示