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.build()
Tables("课程表").StopRedraw
Dim sr() As String = {"一","二","三","四","五"}
Dim nj() As String = {"一","二","三","四","五","六"}
Dim filter As String = Tables("灵川中心表一").FIlter
If filter > "" Then filter = filter & " And "
For Each s As String In sr
For Each n As String In nj
For i As Integer = 1 To 4
DataTables("课程表").DataCols.Add("星期" & s & "_" & n & "年级_(" & i & ")",Gettype(String),16)
Next
Next
Next
For Each dr1 As DataRow In DataTables("灵川中心表一").Select(Tables("灵川中心表一").FIlter)
Dim dr2 As DataRow = DataTables("课程表").find("学校='" & dr1("学校") & "' and 节序='" & dr1("节序") & "'")
If dr2 Is Nothing Then
dr2 = DataTables("课程表").AddNew()
End If
For Each s As String In sr
dr2("星期" & s & "_" & dr1("年级") & "_" & dr1("班级")) = dr1("星期_" & s)
Next
Next
Tables("课程表").ResumeRedraw
MainTable = Tables("课程表")
加好友 
发短信
Post By：2020/3/30 8:54:00 [显示全部帖子]
