- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何实现如附件图表的图那样？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161065)
-- 发布时间：2021/3/4 16:33:00
-- 如何实现如附件图表的图那样？
1.上传实例如何实现，象附件中那个图表那样？
2.由于关联表，只能是用正表，没副表，在窗口没事件，能实现选中主表的行，生成相应的图表？
-- 发布时间：2021/3/4 17:04:00
--
1、意思是显示2条辅助线？参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=55270
2、这种不要使用绑定，使用代码比例如：http://www.foxtable.com/webhelp/topics/0967.htm，看方法一
-- 发布时间：2021/3/4 17:40:00
--
一.要实现动态图表，所以要绑定数据表，实现选中主表任意行，根据明细数据生成不一样的图表，不绑定，操作起不友好，也很僵化。
二，图数据
1，X轴，图的长度是固定25个点；
2，X轴，图中“X-上，X-中，X-下图，长度也是固定25个点，其数据由明细表"X-上，X-中，X-下”值，或根据主表"X-上，X-中，X-下”值，生成25个点，线的颜色不一样，可黄，蓝，绿；
3，Y轴的根据"X-上，X-下”值的生成最大值和最小值。
-- 发布时间：2021/3/4 17:47:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=55270这个实例打不开，用开发或商业版都打不开
-- 发布时间：2021/3/4 20:31:00
--
不知道你怎么做的，如何的不友好？自己控制更灵活
4楼那个链接附件是商业版项目，我使用商业版可以打开
-- 发布时间：2021/3/5 0:50:00
--
就是实例上，选中主表的产品，根据明细的“X值，X-上，X-中，X-下”，生成图表，图表样，如实例件那张“图表.JPG”那样。
参考说明，还有你推荐实例，还没是搞定，请老师指导一下，谢谢
-- 发布时间：2021/3/7 21:59:00
--
请老师，各位大神帮解决，谢谢
-- 发布时间：2021/3/7 22:34:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:图表 - 1d 问题.zip |
-- 发布时间：2021/3/8 11:17:00
--
Dim i均值 As Integer = "X_中"
Dim i上限 As Integer = "X_上"
Dim i下限 As Integer ="X_下"
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Dim t As Table = Tables("SB主表.SB明细")
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = t.Rows.Count
For i As Integer = 0 To t.Rows.Count - 1 \'指定每个数据点的位置
Series.X(i) = i+1 \'指定水平坐标
Series.Y(i) = t.Rows(i)("X值") \'指定垂直坐标
Next
Dim C1Cha As C1.Win.C1Chart.C1Chart = Chart.BaseControl
\'
\'增加均值
\'
Dim tl As C1.Win.C1Chart.TrendLine = C1Cha.ChartGroups(0).ChartData.TrendsList.AddNewTrendLine()
tl.LineStyle.Color = Color.Gold \'线条颜色
tl.LineStyle.Thickness = 2 \'线宽
tl.LineStyle.Pattern = 0 \'直线样式 0-5
Dim zxb = New zxb柱状图标辅助线()
zxb.SetXY(New PointF(-0.5,Tables("SB主表").Current("X_中")),New PointF(25,Tables("SB主表").Current("X_中")))
zxb.SetText("均线")
tl.CustomTrendLine = zxb
\'增加下限
\'
\'\'Dim tl As C1.Win.C1Chart.TrendLine = C1Cha.ChartGroups(0).ChartData.TrendsList.AddNewTrendLine()
tl = C1Cha.ChartGroups(0).ChartData.TrendsList.AddNewTrendLine()
tl.LineStyle.Color = Color.red
tl.LineStyle.Thickness = 2
tl.LineStyle.Pattern = 0
Dim zxb = New zxb柱状图标辅助线()
zxb.SetXY(New PointF(-0.5,Tables("SB主表").Current("X_下")),New PointF(25,Tables("SB主表").Current("X_下")))
\'zxb.SetText("均线")
zxb.SetText("下限")
tl.CustomTrendLine = zxb
老师，我增加下限，加上红色，一直报“未知编译错误”，要如何才能实现“下限，上限”，谢谢
-- 发布时间：2021/3/8 11:40:00
--
\'增加下限
\'
Dim tl2 As C1.Win.C1Chart.TrendLine = C1Cha.ChartGroups(0).ChartData.TrendsList.AddNewTrendLine()
tl2 = C1Cha.ChartGroups(0).ChartData.TrendsList.AddNewTrendLine()
tl2.LineStyle.Color = Color.red
tl2.LineStyle.Thickness = 2
tl2.LineStyle.Pattern = 0
Dim zxb2 = New zxb柱状图标辅助线()
zxb2.SetXY(New PointF(-0.5,Tables("SB主表").Current("X_下")),New PointF(25,Tables("SB主表").Current("X_下")))
\'zxb.SetText("均线")
zxb2.SetText("下限")
tl2.CustomTrendLine = zxb2