Foxtable(狐表) → 用户栏目 → 专家坐堂 → 水平坐标字符表示


  共有2003人关注过本帖树形打印复制链接

主题：水平坐标字符表示
帅哥哟，离线，有人找我吗？
季朝龙
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：83 积分：912 威望：0 精华：0 注册：2019/9/20 14:29:00 		水平坐标字符表示  发帖心情 Post By：2019/11/13 15:29:00 [只看该作者]

老师帮忙看看一下代码怎么无法实现“水平坐标字符表示”！

 Dim Chart1 As WinForm.Chart '定义一个图表变量
        Dim Series1 As WinForm.ChartSeries '定义一个图系变量
        Chart1 = e.Form.Controls("时段产出") ' 引用窗口中的图表
        Chart1.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
        Chart1.SeriesList.Clear() '清除图表原来的图系
        Series1 = Chart1.SeriesList.Add() '增加一个图系
        Series1.Length = 12 '新增图系包括11个数据点
        Series1.X(0) = 0
        Series1.X(1) = 1
        Series1.X(2) = 2
        Series1.X(3) = 3
        Series1.X(4) = 4
        Series1.X(5) = 5
        Series1.X(6) = 6
        Series1.X(7) = 7
        Series1.X(8) = 8
        Series1.X(9) = 9
        Series1.X(10) = 10
        Series1.X(11) = 11
        
        Chart1.AxisX.SetValueLabel(0, "A")
        Chart1.AxisX.SetValueLabel(1, "B")
        Chart1.AxisX.SetValueLabel(2, "C")
        Chart1.AxisX.SetValueLabel(3, "D")
        Chart1.AxisX.SetValueLabel(4, "E")
        Chart1.AxisX.SetValueLabel(5, "F")
        Chart1.AxisX.SetValueLabel(6, "I")
        Chart1.AxisX.SetValueLabel(7, "J")
        Chart1.AxisX.SetValueLabel(8, "K")
        Chart1.AxisX.SetValueLabel(9, "L")
        Chart1.AxisX.SetValueLabel(10, "M")
        Chart1.AxisX.SetValueLabel(11, "N")
        
        Series1.Y(0) = r0
        Series1.Y(1) = r1
        Series1.Y(2) = r2
        Series1.Y(3) = r3
        Series1.Y(4) = r4
        Series1.Y(5) = r5
        Series1.Y(6) = r6
        Series1.Y(7) = r7
        Series1.Y(8) = r8
        Series1.Y(9) = r9
        Series1.Y(10) = r10
        Series1.Y(11) = r11
        
        Chart1.AxisX.AnnoWithLabels = True
        Chart1.BackColor = color.Moccasin
        Chart1.LegendCompass= CompassEnum.south
        Chart1.headerText = "时段产出"
        Chart1.HeaderFont =  New Font("宋体", 16, FontStyle.Bold)
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106184 积分：540043 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/13 15:37:00 [只看该作者]

没看懂，截图说明一下

 回到顶部
帅哥哟，离线，有人找我吗？
季朝龙
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：83 积分：912 威望：0 精华：0 注册：2019/9/20 14:29:00 		  发帖心情 Post By：2019/11/13 17:12:00 [只看该作者]

抱歉，刚刚漏复制了一段代码，难怪老师看不懂
现在问题找到了，原来是我自己控件代码改了，计时器代码没有改所以没看到修改后的结果。
还是非常感谢老师的耐心帮助！

 Dim md,md1 As Integer
        Dim nd As String
        Dim rd,rd1 As Integer
        Dim ld As String
        Dim r0 As Integer
        Dim r1 As Integer
        Dim r2 As Integer
        Dim r3 As Integer
        Dim r4 As Integer
        Dim r5 As Integer
        Dim r6 As Integer
        Dim r7 As Integer
        Dim r8 As Integer
        Dim r9 As Integer
        Dim r10 As Integer
        Dim r11 As Integer
        
        
        ld = e.Form.Controls("工位输入").text
        nd = e.Form.Controls("订单号输入").text
        md = DataTables("生产数据").SQLCompute("Count(绑定临时码)" ,"订单号 = '" & nd & "' and 绑定临时码 = '" & ld & "'  ")
        Dim sj0,sj11,sj12,sj9,sj13,sj10,sj14,sj15,sj16,sj17,sj18,sj19,sj24 As Date
        sj0 = Date.Today.AddHours(0)
        sj9 = Date.Today.AddHours(9)
        sj10 = Date.Today.AddHours(10)
        sj11 = Date.Today.AddHours(11)
        sj12 = Date.Today.AddHours(12)
        sj13 = Date.Today.AddHours(13)
        sj14 = Date.Today.AddHours(14)
        sj15 = Date.Today.AddHours(15)
        sj16 = Date.Today.AddHours(16)
        sj17 = Date.Today.AddHours(17)
        sj18 = Date.Today.AddHours(18)
        sj19 = Date.Today.AddHours(19)
        sj24 = Date.Today.AddHours(24)
        e.Form.Controls("总产出").text = md
        rd = DataTables("生产数据").SQLCompute("Count(临时码)" ,"订单号 = '" & nd & "' and 绑定临时码 = '" & ld & "' and 投入时间 >= '" & sj0 & "'and 投入时间 < '" & sj24 & "' ")
        e.Form.Controls("当日产出").text = rd
        r0 = DataTables("生产数据").SQLCompute("Count(临时码)" ,"订单号 = '" & nd & "' and 绑定临时码 = '" & ld & "' and 投入时间 < '" & sj0 & "' ")
        e.Form.Controls("0").text = r0
        r1 = DataTables("生产数据").SQLCompute("Count(临时码)" ,"订单号 = '" & nd & "' and 绑定临时码 = '" & ld & "' and 投入时间 >= '" & sj0 & "'and 投入时间 < '" & sj9 & "' ")
        e.Form.Controls("1").text = r1
        r2 = DataTables("生产数据").SQLCompute("Count(临时码)" ,"订单号 = '" & nd & "' and 绑定临时码 = '" & ld & "' and 投入时间 >= '" & sj9 & "'and 投入时间 < '" & sj10 & "' ")
        e.Form.Controls("2").text = r2
        r3 = DataTables("生产数据").SQLCompute("Count(临时码)" ,"订单号 = '" & nd & "' and 绑定临时码 = '" & ld & "' and 投入时间 >= '" & sj10 & "'and 投入时间 < '" & sj11 & "' ")
        e.Form.Controls("3").text = r3
        r4 = DataTables("生产数据").SQLCompute("Count(临时码)" ,"订单号 = '" & nd & "' and 绑定临时码 = '" & ld & "' and 投入时间 >= '" & sj11 & "'and 投入时间 < '" & sj12 & "' ")
        e.Form.Controls("4").text = r4
        r5 = DataTables("生产数据").SQLCompute("Count(临时码)" ,"订单号 = '" & nd & "' and 绑定临时码 = '" & ld & "' and 投入时间 >= '" & sj13 & "'and 投入时间 < '" & sj14 & "' ")
        e.Form.Controls("5").text = r5
        r6 = DataTables("生产数据").SQLCompute("Count(临时码)" ,"订单号 = '" & nd & "' and 绑定临时码 = '" & ld & "' and 投入时间 >= '" & sj14 & "'and 投入时间 < '" & sj15 & "' ")
        e.Form.Controls("6").text = r6
        r7 = DataTables("生产数据").SQLCompute("Count(临时码)" ,"订单号 = '" & nd & "' and 绑定临时码 = '" & ld & "' and 投入时间 >= '" & sj15 & "'and 投入时间 < '" & sj16 & "' ")
        e.Form.Controls("7").text = r7
        r8 = DataTables("生产数据").SQLCompute("Count(临时码)" ,"订单号 = '" & nd & "' and 绑定临时码 = '" & ld & "' and 投入时间 >= '" & sj16 & "'and 投入时间 < '" & sj17 & "' ")
        e.Form.Controls("8").text = r8
        r9 = DataTables("生产数据").SQLCompute("Count(临时码)" ,"订单号 = '" & nd & "' and 绑定临时码 = '" & ld & "' and 投入时间 >= '" & sj17 & "'and 投入时间 < '" & sj18 & "' ")
        e.Form.Controls("9").text = r9
        r10 = DataTables("生产数据").SQLCompute("Count(临时码)" ,"订单号 = '" & nd & "' and 绑定临时码 = '" & ld & "' and 投入时间 >= '" & sj18 & "'and 投入时间 < '" & sj19 & "' ")
        e.Form.Controls("10").text = r10
        r11 = DataTables("生产数据").SQLCompute("Count(临时码)" ,"订单号 = '" & nd & "' and 绑定临时码 = '" & ld & "' and 投入时间 >= '" & sj19 & "'and 投入时间 < '" & sj24 & "' ")
        e.Form.Controls("11").text = r11
        e.Form.Controls("总产出").text = md
        
        Dim Chart1 As WinForm.Chart '定义一个图表变量
        Dim Series1 As WinForm.ChartSeries '定义一个图系变量
        Chart1 = e.Form.Controls("时段产出") ' 引用窗口中的图表
        Chart1.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
        Chart1.SeriesList.Clear() '清除图表原来的图系
        Series1 = Chart1.SeriesList.Add() '增加一个图系
        Series1.Length = 12 '新增图系包括11个数据点
        Series1.X(0) = 0
        Series1.X(1) = 1
        Series1.X(2) = 2
        Series1.X(3) = 3
        Series1.X(4) = 4
        Series1.X(5) = 5
        Series1.X(6) = 6
        Series1.X(7) = 7
        Series1.X(8) = 8
        Series1.X(9) = 9
        Series1.X(10) = 10
        Series1.X(11) = 11
        
        Chart1.AxisX.SetValueLabel(0, "当日之前")
        Chart1.AxisX.SetValueLabel(1, "0到9点")
        Chart1.AxisX.SetValueLabel(2, "9到10点")
        Chart1.AxisX.SetValueLabel(3, "10到11点")
        Chart1.AxisX.SetValueLabel(4, "11到12点")
        Chart1.AxisX.SetValueLabel(5, "12到14点")
        Chart1.AxisX.SetValueLabel(6, "14到15点")
        Chart1.AxisX.SetValueLabel(7, "15到16点")
        Chart1.AxisX.SetValueLabel(8, "16到17点")
        Chart1.AxisX.SetValueLabel(9, "17到18点")
        Chart1.AxisX.SetValueLabel(10, "18到19点")
        Chart1.AxisX.SetValueLabel(11, "19到24点")
        
        Series1.Y(0) = r0
        Series1.Y(1) = r1
        Series1.Y(2) = r2
        Series1.Y(3) = r3
        Series1.Y(4) = r4
        Series1.Y(5) = r5
        Series1.Y(6) = r6
        Series1.Y(7) = r7
        Series1.Y(8) = r8
        Series1.Y(9) = r9
        Series1.Y(10) = r10
        Series1.Y(11) = r11
        
        Chart1.AxisX.AnnoWithLabels = True
Chart1.AxisX.AnnoRotation = -45
        Chart1.BackColor = color.Moccasin
        Chart1.LegendCompass= CompassEnum.south
        Chart1.headerText = "时段产出"
        Chart1.HeaderFont =  New Font("宋体", 16, FontStyle.Bold)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询