主题：统计排序

e.form.controls("Table11").Table.AutoSizeCols(3)
t.DefaultRowHeight = 31

t.DataTable.DataCols.Add("_sortkey", Gettype(Decimal))

t.Sort = "序列号,排产日期"

For Each r As Row In t.Rows
    r("_sortkey") = r.Index
Next
t.rows(t.rows.count - 1).Move(0)
t.Sort = "_sortkey"
t.DataTable.AcceptChanges
t.ResumeRedraw

e.form.controls("Table11").Table.AutoSizeCols(3)
t.DefaultRowHeight = 31

t.DataTable.DataCols.Add("_sortkey", Gettype(Decimal))

t.rows(t.rows.count - 1).Move(0)

t.rows(0)("_sortkey") = 0

dim i as integer = 1

For Each dr As dataRow In t.DataTable.select("_sortkey is null","序列号,排产日期")

    dr("_sortkey") = i

i+=1
Next

t.Sort = "_sortkey"
t.DataTable.AcceptChanges
t.ResumeRedraw