Dim b As New SQLGroupTableBuilder("课程表","灵川中心表一")
b.ConnectionName = "城厢区灵川中心小学数据库"
b.FIlter = DataTables("灵川中心表一").loadFIlter
If Tables("灵川中心表一").FIlter > "" Then
b.FIlter = IIF(b.FIlter > "", b.FIlter & " and ","") & Tables("灵川中心表一").FIlter
End If
b.Groups.AddDef("学校")
b.Groups.AddDef("节序")
b.Totals.AddExp("_sortkey","0")
b.build()
Dim i As Integer = 1
For Each dr As DataRow In DataTables("课程表").Select("","学校,节序")
dr("_sortkey") = i*10
i += 1
Next
Dim cnt As Integer = Tables("课程表").Rows.Count - 1
For i = cnt To 0 Step -1
Tables("课程表").Position = i
Dim r As Row = Tables("课程表").current
Dim r2 As Row = Tables("课程表").InsertNew
r2("学校") = r("学校")
r2("节序") = r("节序")
Next
加好友 
发短信
Post By：2020/4/2 23:07:00 [只看该作者]
