For Each Product As String In DataTables("灵川中心表一").GetValues("教师" ,"教师 is not null")
Dim dict As new Dictionary(of String,Integer)
Dim srr() As String = {"一","二","三","四","五"}
For Each dr As DataRow In DataTables("灵川中心表一").Select("教师='" & Product & "'" )
For Each s As String In srr
If dr.IsNull("星期_" & s) = False Then
Dim c As String = dr("星期_" & s)
If dict.ContainsKey(c) Then
dict(c) = dict(c)+1
Else
dict.Add(c,1)
End If
End If
Next
Next
Dim sm As String = ""
For Each key As String In dict.Keys
sm = sm & dict(key) & key & "+"
Next
sm = Product & ": " & sm.trim("+")
Output.Show(sm)
'Dim rr As Row = Tables("课程表").AddNew()
'rr("节序") = sm
Next
加好友 
发短信
Post By：2020/4/13 15:55:00 [只看该作者]
