主题：表排序之后，生成的图表不是按照排序顺序显示

Dim lst As List(Of String) = tbl.GetValues(a) '获得产品名称集合

改成

Dim lst As List(Of String) = tbl.GetValues(a, "", "运费合计") '获得产品名称集合