For Each dr As DataRow In DataTables("人事安排明细表").DataRows
Dim xm,bz,bzrs,kms As String
xm = dr("姓名")
bz = ""
bzrs = "正班任|副班任"
kms = "政治|语文|数学|英语"
Dim lst1,lst2 As new List(of String)
For Each fdr As DataRow In DataTables("人事安排表").DataRows
For Each bzr As String In bzrs.Split("|")
If fdr(bzr) = xm
bz += fdr("班级") & bzr
End If
Next
For Each km As String In kms.Split("|")
If fdr(km) = xm
Lst1.Add(fdr("班号"))
If lst2.Contains(km) = False
lst2.Add(km)
End If
End If
Next
Next
dr("班任") = bz
dr("班号") = String.Join("",lst1.ToArray)
dr("科目") = String.Join("",lst2.ToArray)
Next
加好友 
发短信
Post By：2015/9/4 18:17:00 [只看该作者]
