主题：自动升序

能否把图表，根据”批号“列，升序排列？

Dim Chart As WinForm.Chart'定义一个图表变量
Dim Series As Winform.ChartSeries'定义一个图表变量
Chart=Forms("100批次").Controls("Chart2")
Chart.DataSource="临时表2"'定义一个变量引用表
Chart.DataFilter="品名序号="& tables("BMC品名管理").current("品名序号")&"" '调用与父表"品名序号"相同的数据
Chart.AxisY.Min=Forms("100批次").Controls("TextBox2").Value '最小值
Chart.AxisY.Max=Forms("100批次").Controls("TextBox1").Value '最大值
Chart.SeriesList.Clear()'清除图表原有的图系
Series=Chart.SeriesList.Add()'新增一个图系
Series.LineColor = Color.black'线条黑色
Series.MarkColor = Color.black'圆点黑色
Series.X.DataField="批号"'X轴调用生产批号数据
Series.Y.DataField="凝胶化时间"
Series=Chart.SeriesList.Add()'新增一个图系
Series.LineColor = Color.red
Series.MarkColor = Color.red
Series.X.DataField="批号"'X轴调用生产批号数据
Series.Y.DataField="凝胶化时间最大值"
Series=Chart.SeriesList.Add()'新增一个图系
Series.LineColor = Color.red
Series.MarkColor = Color.red
Series.X.DataField="批号"'X轴调用生产批号数据
Series.Y.DataField="凝胶化时间最小值"
Series=Chart.SeriesList.Add()'新增一个图系
Series.LineColor = Color.Blue
Series.MarkColor = Color.Blue
Series.X.DataField="批号"'X轴调用生产批号数据
Series.Y.DataField="凝胶化时间平均值"
Series=Chart.SeriesList.Add()'新增一个图系
Series.LineColor = Color.green
Series.MarkColor = Color.green
Series.X.DataField="批号"'X轴调用生产批号数据
Series.Y.DataField="凝胶化时间平均3a"
Series=Chart.SeriesList.Add()'新增一个图系
Series.LineColor = Color.green
Series.MarkColor = Color.green
Series.X.DataField="批号"'X轴调用生产批号数据
Series.Y.DataField="凝胶化时间平均负3a"