Case 6                   '这一列显示总额<---去掉,移到最后
            DataGrid1.Text = total
            total = 0
            qty = 0
            unitprice = 0
    …… 
  变成:
    End Select
            DataGrid1.Text = total
            total = 0
            qty = 0
            unitprice = 0