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")
Next
Next
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
加好友 
发短信
Post By：2023/4/15 11:33:00 [只看该作者]
此主题相关图片如下：基材表.png
