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

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"