专家坐堂-chart的横坐标日期表示Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim cht As WinForm.Chart = e.Form.Controls("cht_BaseMaterialPrice") \'chart控件

Dim lst As WinForm.CheckedListBox = e.Form.Controls("lst_BaseMaterial") \'复选框列表

Dim dt1 As WinForm.DateTimePicker = e.Form.Controls("tm_Begin") \'起始时间

Dim dt2 As WinForm.DateTimePicker = e.Form.Controls("tm_End") \'结束时间

Dim drs As List (Of DataRow)

Output.Clear()

If e.Form.Controls("lbl_Init").Text = "0" Then

Return

End If

If dt1.Value >= dt2.Value Then

MessageBox.Show("起始日期晚于结束日期，请重新选择！")

Return

End If

Dim dr As DataRow

Dim Filter As String = ""

Dim strName As String

Dim name As String, num As String

Dim strList() As String

Dim last As Single = 0

Dim dateStrList As List(Of String)

dateStrList = DataTables("基材价格表").GetValues("日期", "[日期] >= #" & dt1.Value & "# AND [日期] <= #" & dt2.Value & "#")

Output.Show("基材价格管理 refresh0")

If lst.CheckedIndices.Count > 0 Then

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

cht.SeriesList.Clear() \'清除图表原来的图系

cht.ChartType = ChartTypeEnum.XYPlot \'图表类型改为线形

\' cht.AxisX.DateType = True \'X轴是日期型

\' cht.AxisX.AnnoFormatString = "yyyy.MM"

For Each index As Integer In lst.CheckedIndices

strList = lst.Items(index).ToString().Split("|")

name = strList(0)

num = strList(1)

Filter = Filter & "编号 = \'" & num & "\' or "

Output.Show("基材价格管理 refresh index=" & index & " item= " & lst.Items(index).ToString() & " name=" & name & " num=" & num & " " & dateStrList.Count)

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

Series.Text = name \'设置图系的标题

Series.Length = dateStrList.Count \'设置图系的长度

For i As Integer = 0 To dateStrList.Count - 1 \'指定每个数据点的位置

Output.Show("基材价格管理 refresh dateStrList " & i & " " & dateStrList(i) & " 编号 = \'" & num & "’and 日期 = \'" & dateStrList(i) & "\'")

Series.X(i) = i \'dateStrList(i) \'指定水平坐标

dr = DataTables("基材价格表").Find("编号 = \'" & num & "\' and 日期 = \'" & dateStrList(i) & "\'") \'找出编号为03的产品

If dr IsNot Nothing AndAlso dr.IsNull("单价") = False Then

Series.Y(i) = dr("单价") \'指定垂直坐标

last = dr("单价")

Output.Show("基材价格管理 refresh dateStrList " & i & " " & last)

Else

Series.Y(i) = last

Output.Show("基材价格管理 refresh dateStrList " & i & "last")

End If

cht.AxisX.SetValueLabel(i, dateStrList(i)) \'指定字符表示

Output.Show("基材价格管理 refresh dateStrList " & i & " " & dateStrList(i).Split(" ")(0) & " end")

cht.VisualEffect = True \'加上这一行,让你的图表更漂亮

cht.LegendVisible = True \'显示图列

cht.LegendCompass = CompassEnum.South \'图列显示在南方(底端)

Filter = Filter.Substring(0, filter.Length - 3)

Dim max As Double, min As Double

max = DataTables("基材价格表").Compute("Max(单价)", Filter)

min = DataTables("基材价格表").Compute("Min(单价)", Filter)

Output.Show("基材价格管理 refresh Filter= " & Filter & " max=" & max & " min=" & min)

cht.AxisY.Max = Math.Round(max * 1.2 / 1000, 0) * 1000 \'指定Y轴的最大值

cht.AxisY.Min = Math.Round(min * 0.8 / 1000, 0) * 1000 \'指定Y轴的最小值

cht.AxisY.Major = 500 \'主刻度间隔值为500

End If