- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何生成图表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110112)
-- 发布时间：2017/11/26 22:29:00
-- 如何生成图表
如何用代码生成这个图表
此主题相关图片如下：无标题.png
-- 发布时间：2017/11/26 23:21:00
--
参考
http://www.foxtable.com/webhelp/scr/0968.htm
http://www.foxtable.com/webhelp/scr/0970.htm
-- 发布时间：2017/11/27 17:12:00
--
1楼的图表还是生不成
此主题相关图片如下：无标题.png
[此贴子已经被作者于2017/11/27 17:14:06编辑过]
-- 发布时间：2017/11/27 17:30:00
--
贴出你写的代码。或者上传具体实例说明。
-- 发布时间：2017/11/27 18:28:00
--
1、只有一条折线
2、没有折线的名称，如数量或金额
附件在6楼
[此贴子已经被作者于2017/11/27 18:30:20编辑过]
-- 发布时间：2017/11/27 18:30:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2017/11/27 18:46:00
--
Dim cmd As new sqlcommand
CmD.commandtext="sel ect * from {表A}"
Dim t As Table=e.Form.controls("table1").Table
t.datasource=cmd.ExecuteReader()
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.XYPlot \'图表类型该为Bar(条形)
Chart.DataSource = t.name \'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加第一个图系
Series.Text = "数量"
Series.X.DataField = "产品" \'X轴绑定到产品列
Series.Y.DataField = "数量" \'Y轴绑定到数量列
Series = Chart.SeriesList.Add() \'增加第二个图系
Series.Text = "金额"
Series.X.DataField = "产品" \'X轴绑定到产品列
Series.Y.DataField = "金额" \'Y轴绑定到数量列
Chart.LegendVisible = True \'显示图列
好了，与大家共勉。
-- 发布时间：2017/11/27 18:56:00
--
问题来了，X轴显示的不是时间，而是数字。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2017/11/27 19:09:00
--
点击窗口按钮，有错误提示。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.foxdb |
-- 发布时间：2017/11/27 20:24:00
--
日期用法参考：http://www.foxtable.com/webhelp/scr/1028.htm
窗口按钮，有错误提示：把a、b列类型改为短整型或者整型