当前数据永远在第一行,怎么变通为遍历所有行,当信息类别和信息内容等不为空的时候,新增告知内容列表,且与当前新增记录行匹配对应数据
下列代码能够实现除了信息内容字段之外的所有值的正确显示,信息内容永远是数据后台默认选择的第一条数据内容,无法根据新增内容进行对应变更。
下面代码写在内部函数中,并在移动开发中直接调用内部函数进行对应数据的读写!
麻烦各位老师指导一下 谢谢!【经过判断 红色部分代码定位及写法有点问题】
代码如下:
Dim br As Row=Tables("信息列表").Current
If br("信息类别") <>"" Then
If br("信息内容") <>"" Then
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 & "%' "
Next
Vals = DataTables("干警信息").sqlGetValues("姓名",filter )
'MessageBox.Show("发送人员 & Vals")
Else If br("发送对象") <>"" Then
Dim filter As String = "1=2"
For Each s As String In br("发送对象").split(",")
filter = filter & " or [身份属性] like '%" & s & "%' "
Next
Vals = DataTables("干警信息").sqlGetValues("姓名",filter )
Else If br("关注领域") <>"" Then
Dim filter As String = "1=2"
For Each s As String In br("关注领域").split(",")
filter = filter & " or [关注领域] like '%" & s & "%' "
Next
Vals = DataTables("干警信息").sqlGetValues("姓名",filter )
End If
For i As Integer = 0 To Vals.Count - 1
Dim dr As DataRow = DataTables("告知内容").AddNew()
dr("信息时间") = Date.Now
dr("姓名") = Vals(i)
dr("信息内容")=br("信息内容")
dr("是否告知")= "否"
dr("发送对象")= br("发送对象")
dr("发送人员")= br("发送人员")
dr("发送平台")= br("发送平台")
dr("信息类别")= br("信息类别")
dr("拟发送时间")= br("拟发送时间")
dr("序号")=br("_identify")
dr("操作单位")=_usergroup
dr.save
Next
Else
If br("发送对象")="" Then
MessageBox.Show("发送对象\发送人员\关注领域必须选择一个")
Else If br("发送人员")="" Then
MessageBox.Show("发送对象\发送人员\关注领域必须选择一个")
Else If br("关注领域")="" Then
MessageBox.Show("发送对象\发送人员\关注领域必须选择一个")
End If
MessageBox.Show("信息内容不能为空!")
End If
Else
MessageBox.Show("信息类别必须选择一个")
End If