1. 在表中责任人列（多值字段）得到不同责任人：
Dim ps As new List(Of String)
For Each dr As DataRow In DataTables("周工作").Select("进度 < 100")
For Each p As String In dr("责任人").split(",")
If ps.Contains(p) = False Then
ps.add(p)
End If
Next
Next
2. 遍历每个责任人(p)，然后得到对应每项“工作内容”列中的字符串，现在问题出现：第一个人的工作内容无误，但第二人工作内容会叠加第上一人的工作内容，依次不断叠加，请问代码问题在哪儿？谢谢
For Each p As String In ps
Dim str As String
Dim drs2 As List(Of DataRow)
drs2 = DataTables("周工作").Select("责任人 like '%" & p & "%' And 进度 < 100")
For i As Integer = 0 To drs2.count-1
Dim dr As DataRow = drs2(i)
str = str & " " & (i+1) & "." & dr("工作内容") & vbcrlf
message.Body = p & "您好!" & str
Next
Next
加好友 
发短信
Post By：2015/12/28 10:48:00 [只看该作者]
