-- 作者：cnsjroom
-- 发布时间：2022/2/7 17:47:00
-- 多条数据写入文本 怎么会只有一条呢？
多条数据写入文本 怎么会只有一条呢？麻烦老师指导下，谢谢！
当前代码如下：
Dim br As Row=Tables("信息编辑_table1").Current
Dim l1 As WinForm.Label = Forms("信息编辑").Controls("Label12")
l1.text="程序开始执行,请稍候……"
Dim ab As DataRow = DataTables("参数表").sqlFind("使用单位 = \'" & _usergroup & "\'")
Dim cnt As Integer
If br("空值")=False Then
If br("信息类别") <>"" Then
If br("信息内容") <>"" Then
Dim Vals As List(of String())
……
Dim t4 As WinForm.TextBox =Forms("信息编辑").Controls("TextBox4")
Dim d4 = t4.BaseControl
Dim dr0 As DataRow = DataTables("信息模板").sqlfind("操作单位=\'" & _usergroup & "\' And 信息类别 = \'" & br("信息类别") & "\'" )
For i As Integer = 0 To Vals.Count - 1
……
cnt = DataTables("告知内容").Compute("Count([手机号码])", "信息内容 = \'" & br("信息内容") & "\'and 操作单位 = \'" & _usergroup & "\'")
Output.Show("本次共告知条数:" & cnt)
t4.Text= "本次共告知条数:" & cnt
t4.Text= t4.Text & vbcrlf & "【" & dr("姓名") & "】数据生成" & Date.Now() & vbcrlf & "【短信内容】:" & dr("告知内容")
t4.SelectionStart = t4.Text.Length
d4.ScrollToCaret
Application.DoEvents
……
Else
……
End If
\'t4.Text= "本次共告知条数:" & cnt
t4.Text= t4.Text & vbcrlf & "【" & dr("姓名") & "】短信已发" & Date.Now() & vbcrlf & vbcrlf & "…………………………………………"
t4.SelectionStart = t4.Text.Length
d4.ScrollToCaret
Application.DoEvents
Next
br("空值")=True
DataTables("信息列表").Save()
Else
MessageBox.Show("信息内容不能为空!")
End If
Else
MessageBox.Show("信息类别必须选择一个")
End If
l1.text="程序执行完毕,可关闭当前窗口!"
End If
没有红色部分代码时，生成效果如下：
【李四】数据生成2022-01-28 10:02:12
【短信内容】:尊敬的李四，测试！
【李四】短信已发2022-01-28 10:02:12
…………………………………………
【张三】数据生成2022-01-28 10:02:12
【短信内容】:尊敬的张三，测试！
【张三】短信已发2022-01-28 10:02:12
…………………………………………
有红色部分代码时，生成效果如下：应该有四条数据，结果只有一条数据
本次共告知条数:4
【王五】数据生成2022-02-07 17:40:14
【短信内容】:第四次短信测试
【王五】短信已发2022-02-07 17:40:14
…………………………………………
|