【信息列表】中发送对象是多值可选属性,发送对象当前可选党员,行政人员,中层干部,科长假设当前【干警信息】表里面 姓名张三 身份属性为:党员,行政人员,中层干部,科长
当【信息列表】中的发送对象选择了 党员 时,那么姓名为张三的身份属性就从其【干警信息】表中身份属性所有值获取出来只显示党员,而不是显示张三所有的身份属性值党员,行政人员,中层干部,科长。

此主题相关图片如下:21.png

代码如下:【怎么修正红色部分呢】
Dim br As Row=Tables("信息列表").Current
Dim Vals As List(of String)
If br("发送对象") <>"" Then
Dim filter As String = "1=2"
For Each s As String In br("发送对象").split(",")
filter = filter & " or [身份属性] like '%" & s & "%' and 所在单位 = '" & _usergroup & "'"
Next
Vals = DataTables("干警信息").sqlGetValues("姓名",filter )
End If
For i As Integer = 0 To Vals.Count - 1
Dim dr As DataRow = DataTables("告知内容").sqlfind("信息内容 = '" & br("信息内容") & "'and 操作单位 = '" & _usergroup & "' and 姓名 = '" & vals(i) & "'")
Dim dr1 As DataRow = DataTables("干警信息").sqlfind("所在单位 = '" & _usergroup & "' and 姓名 = '" & vals(i) & "'")
If dr Is Nothing Then
dr = DataTables("告知内容").AddNew()
dr("信息时间") = Date.Now
dr("姓名") = Vals(i)
If dr1 IsNot Nothing Then
dr("身份属性")= dr1("身份属性")
dr("手机号码")=dr1("电话")
End If
dr.save
End If
Next
[此贴子已经被作者于2020/3/28 14:20:47编辑过]