主题：时间日期错误，救助

 直接说你想实现什么功能吧

Tables("表A").StopRedraw
Dim dt As DataTable= DataTables("表A")
Dim s1 As Integer
For s1=0 To DataTables("表A").DataRows.Count-1
    DataTables("表A").dataRows(s1)("出发时间") = DataTables("表A").dataRows(s1)("piao面时间")
Next
Tables("表A").Sort = "出发站点 DESC"
Tables("表A").ResumeRedraw