主题：排序状态下插入行

DatacolChanged事件，加入代码

If e.DataCol.Name = "日期" The
    Dim d As Double = format(e.DataRow("日期"),"yyyyMMdd")
    e.DataRow("_Sortkey") = d
End If