- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求大神帮我看看程序 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77591)
-- 发布时间：2015/11/21 9:20:00
-- 求大神帮我看看程序
If
e.DataCol.Name = ""第一列"" Then \'判断第一个组合框内的内容是否为第一列
If
e.Col.Name = "俯卧撑" Then \'判断第二个组合框内的内容是否为表一中的”俯卧撑”列
Dim Chart As WinForm.Chart
\'定义一个图表变量
Dim Series As
WinForm.ChartSeries \'定义一个图系变量
Chart=
e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.DataSource = "表A"
\'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series =
Chart.SeriesList.Add() \'增加一个图系
Series.X.DataField =
"第一列" \'X轴绑定到月份列
Series.Y.DataField =
"俯卧撑" \'Y轴绑定到数量列
If e.aCol.Name = "仰卧起坐" Then
Dim Chart As
WinForm.Chart \'定义一个图表变量
Dim Series As
WinForm.ChartSeries \'定义一个图系变量
Chart=
e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.DataSource = "表A" \'设置绑
Chart.SeriesList.Clear() \'清除图表原来的图系
Series =
Chart.SeriesList.Add() \'增加一个图系
Series.X.DataField =
"第一列" \'X轴绑定到月份列
Series.Y.DataField =
"仰卧起坐" \'Y轴绑定到数量列
e.Cancel = True
End If
End If
End If
End If
-- 发布时间：2015/11/21 9:39:00
-- 预订美好生活，从淘立达王道网购商城开始
预订美好生活，从淘立达王道网购商城开始。淘立达王道网购商城网购一族新型时尚平台，订购生活精彩，快乐不用等，生活享不停。
现在来淘立达王道网购商城
-- 发布时间：2015/11/21 9:47:00
--
逻辑一塌糊涂，上传例子，说明你要做什么
-- 发布时间：2015/11/21 16:49:00
--
大神：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
-- 发布时间：2015/11/22 15:05:00
--
无法理解你的意思。
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.DataSource = "表A" \'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.X.DataField = "第一列" \'X轴绑定到月份列
Series.Y.DataField = e.Form.Controls("ComboBox2").Text
-- 发布时间：2015/11/24 13:26:00
-- 感谢大神
用大神这个，能够得出图表