Dim br As Row=Tables("信息编辑_table1").Current
Dim l1 As WinForm.Label = Forms("信息编辑").Controls("Label12")
l1.text="程序开始执行,请稍候……"
If br("空值")=False Then
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 )
Else 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 )
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
Dim t As WinForm.TextBox =Forms("信息编辑").Controls("TextBox4")
Dim d = t.BaseControl
Dim dr0 As DataRow = DataTables("信息模板").sqlfind("操作单位='" & _usergroup & "' And 信息类别 = '" & br("信息类别") & "'" )
For i As Integer = 0 To Vals.Count - 1
Dim dr As DataRow = DataTables("告知内容").sqlfind("信息内容 = '" & br("信息内容") & "'and 操作单位 = '" & _usergroup & "' and 姓名 = '" & vals(i)(0) & "'")
If dr Is Nothing Then
dr = DataTables("告知内容").AddNew()
dr("信息时间") = Date.Now
dr("姓名") = Vals(i)(0)
dr("身份属性")= Vals(i)(1)
dr("手机号码")=Vals(i)(2)
dr("信息内容")=br("信息内容")
dr("是否告知")= "否"
dr("发送对象")= br("发送对象")
dr("发送平台")= br("发送平台")
dr("信息类别")= br("信息类别")
dr("拟发送时间")= br("拟发送时间")
dr("序号")=br("_identify")
dr("操作单位")=_usergroup
dr("信息编号")=br("信息编号")
If dr0 IsNot Nothing Then
'定义字符串
If br("信息内容")IsNot Nothing Then
Dim str1 As String = dr0("模板内容")
'定义遍历内容替换表查找内容
Dim drs1 As List(of DataRow) = DataTables("内容替换表").SQLSelect("")
For Each dr11 As DataRow In drs1
'如果替换内容与列名不等于空时
If dr11("替换内容") > "" And dr11("列名") > "" Then
'如果告知内容表列值中包含内容替换表中的列值时,进行对应替换
If DataTables("告知内容").DataCols.Contains(dr11("列名")) Then
str1 = str1.replace(dr11("替换内容"),dr(dr11("列名")))
End If
End If
Next
'输入替换后的值,并且写入告知内容表中的告知内容列,然后保存告知内容表
'MessageBox.show(str1)
dr("告知内容")=str1
End If
Else
dr("状态码")="无对应短信模板"
End If
dr.save
End If
t.Text= t.Text & vbcrlf & "{" & dr("身份属性") & "}" & "【" & dr("姓名") & "】同志的数据已生成!"
t.SelectionStart = t.Text.Length
d.ScrollToCaret
Application.DoEvents
Next
br("空值")=True
DataTables("信息列表").Save()
Else
MessageBox.Show("信息内容不能为空!")
End If
Else
MessageBox.Show("信息类别必须选择一个")
End If
l1.text="程序执行完毕,可关闭当前窗口!"
End If
'Next
加好友 
发短信
Post By：2020/4/3 10:59:00 [只看该作者]
此主题相关图片如下：1.png