肯定只能生成后排序啊,加上代码
Dim i As Integer = 0For Each dr As DataRow In DataTables("表E").Select("", "日期E") dr.baseRow("_Sortkey") = i i+=1Next