Dim dr As DataRow = DataTables("告知内容").sqlfind("信息内容 = '" & br("信息内容") & "'and 操作单位 = '" & _usergroup & "' and 姓名 = '" & vals(i)(0) & "'")
If dr Is Nothing Then
Dim cmd As new SQLCommand
cmd.Co nne ction Name = "综合本地数据"
cmd.CommandText = "UP DATE 告知内容 S ET 信息时间=?,注意事项=?,是否告知=?,姓名=?,信息内容=?,发送对象=?,信息类别=?,发送人员=?,发送平台=?,拟发送时间=?,序号=?,身份属性=?,关注领域=?,告知内容=?,操作单位=?,手机号码=?,电子邮件=?,状态码=?,信息编号=?,操作者=? "
cmd.Parameters.Add("@信息时间",Date.Now)
cmd.Parameters.Add("@注意事项","")
cmd.Parameters.Add("@是否告知", "否")
cmd.Parameters.Add("@姓名",Vals(i)(0))
cmd.Parameters.Add("@信息内容",br("信息内容"))
cmd.Parameters.Add("@发送对象",br("发送对象"))
cmd.Parameters.Add("@信息类别", br("信息类别"))
cmd.Parameters.Add("@发送人员",br("发送人员"))
cmd.Parameters.Add("@发送平台",br("发送平台"))
cmd.Parameters.Add("@拟发送时间",br("拟发送时间"))
cmd.Parameters.Add("@序号",br("_identify"))
cmd.Parameters.Add("@身份属性",Vals(i)(1))
cmd.Parameters.Add("@关注领域",br("关注领域"))
cmd.Parameters.Add("@告知内容",lst1)
cmd.Parameters.Add("@操作单位",_usergroup)
cmd.Parameters.Add("@手机号码",Vals(i)(2))
cmd.Parameters.Add("@电子邮件","")
cmd.Parameters.Add("@状态码","")
cmd.Parameters.Add("@信息编号",br("信息编号"))
cmd.Parameters.Add("@操作者",br("操作者"))
cmd.ExecuteNonQuery
……