Dim s,s1,s2,fl As String
Dim ns,n1,n2,n3 As Integer
Dim dr1,dr2 As DataRow
Dim dt1,dt2 As DataTable
Dim tb1 As Table =Tables("ll")
Dim r1 As Row
Dim Lts As List(Of String)
Lts = DataTables("表A").GetUniqueValues("學校 > ''","學校")
dt1 = DataTables("表A") : dt2 =DataTables("ll")
tb1.StopRedraw
dt2.DataRows.clear
For Each s In Lts
If s <> Lts(0) Then
r1 =tb1.Addnew
End If
r1 =tb1.Addnew
r1("第三列") =s
fl = "學校= '" & s & "' and 崗位 ='"
dr1 = dt1.Find(Fl & "領隊'")
dr2 = dt1.Find(FL & "教練'")
s1=iif(dr1 IsNot Nothing,dr1("姓名"),"-")
s2=iif(dr2 IsNot Nothing,dr2("姓名"),"-")
r1 =tb1.Addnew
r1("第一列") ="領隊"
r1("第二列") =s1
r1("第三列") ="教練"
r1("第四列") =s2
Dim drs As new List(Of DataRow)
drs =dt1.Select(Fl & "隊員'")
ns = drs.count
If ns =0 Then
r1 =tb1.Addnew
r1("第一列") ="隊員"
r1("第二列") ="無隊員"
Else
n2 = Math.Ceiling(ns/4)
For n3 = 0 To n2-1
r1 =tb1.Addnew
If n3 = 0 Then
r1("第一列") ="隊員"
End If
For n1= 0 To iif(n3< n2-1,3,(ns Mod 4) -1)
r1(n1+1)= drs(n3*4+n1)("姓名")
Next
Next
End If
Next
tb1.ResumeRedraw
加好友 
发短信
Post By：2012/3/17 23:40:00 [只看该作者]
