Select Case e.DataCol.name Case "司机", "车牌", "出车日期"
改成
Select Case e.DataCol.name Case "司机", "车牌", "出车日期","项目","城市","客户"