以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多行文本 为什么只显示了最后一条记录呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135868)
--  作者：李孝春
--  发布时间：2019/6/5 10:05:00
--  多行文本 为什么只显示了最后一条记录呢？
代码如下：
Dim lsts As New List(Of String)
lsts= DataTables("参数表").SQLGetValues("单位名称")
For Each lst As String In lsts
    \'output.show(lst)
    Dim Val As Integer= DataTables("案件基本信息").SQLCompute("Count(部门受案号)","操作单位 = \'"& lst & "\'")
    Dim Val1 As Integer= DataTables("告知内容").SQLCompute("Count(部门受案号)","操作单位 = \'"& lst & "\'")
    Dim Val2 As Integer= DataTables("告知内容").SQLCompute("Count(部门受案号)","操作单位 = \'"& lst & "\' and 告知方式_短信=\'是\' ")
    Dim Val3 As Integer= DataTables("告知内容").SQLCompute("Count(部门受案号)","操作单位 = \'"& lst & "\' and 告知方式_邮件=\'是\' ")
    Dim l2 As String="【" & lst & "】当前一共导入【"  &  val & "】条案件信息,累计推送信息【"  & Val1 & "】条,其中短信【" & Val2 & "】条,邮件【"  & Val3 & "】条"
    output.show(l2)     ‘可以依次根据单位名称去查找对应的数据并逐行显示出来’
    Dim l23 As WinForm.TextBox= Forms("数据统计").Controls("textbox1")
    l23.text="【" & lst & "】当前一共导入【"  &  val & "】条案件信息,累计推送信息【"  & Val1 & "】条,其中短信【" & Val2 & "】条,邮件【"  & Val3 & "】条"
‘只显示了最后一行数据   该文本已经设置为多文本 ’
Next
--  作者：有点蓝
--  发布时间：2019/6/5 10:59:00
--  
l23.text = l23.text & "【" & lst & "】当前........
--  作者：李孝春
--  发布时间：2019/6/10 14:51:00
--  回复：（有点蓝）l23.text = l23.text &&nbs...
有点蓝老师  怎么实现空行 呢？？？红色代码部分  没有效果   当前所有的文字全部为一段 预期效果是以操作单位名称为标志  一个单位一行数据  

代码如下：
Dim lsts As New List(Of String)
lsts= DataTables("参数表").SQLGetValues("单位名称")
For Each lst As String In lsts
    \'output.show(lst)
    Dim Val As Integer= DataTables("案件基本信息").SQLCompute("Count(部门受案号)","操作单位 = \'"& lst & "\'")
    Dim Val1 As Integer= DataTables("告知内容").SQLCompute("Count(部门受案号)","操作单位 = \'"& lst & "\'")
    Dim Val2 As Integer= DataTables("告知内容").SQLCompute("Count(部门受案号)","操作单位 = \'"& lst & "\' and 告知方式_短信=\'是\' ")
    Dim Val3 As Integer= DataTables("告知内容").SQLCompute("Count(部门受案号)","操作单位 = \'"& lst & "\' and 告知方式_邮件=\'是\' ")
    Dim l2 As String="【" & lst & "】当前一共导入【"  &  val & "】条案件信息,累计推送信息【"  & Val1 & "】条,其中短信【" & Val2 & "】条,邮件【"  & Val3 & "】条"
    output.show(l2)
    Dim l23 As WinForm.TextBox= Forms("数据统计").Controls("textbox1")
    l23.text=l23.text &"【" & lst & "】当前一共导入【"  &  val & "】条案件信息,累计推送信息【"  & Val1 & "】条,其中短信【" & Val2 & "】条,邮件【"  & Val3 & "】条"  & Chr(13) & Chr(10) 
Next
--  作者：有点甜
--  发布时间：2019/6/10 15:50:00
--  

设置成多行文本框

 

http://www.foxtable.com/webhelp/scr/0748.htm

 

 
--  作者：李孝春
--  发布时间：2019/6/10 22:53:00
--  回复：（有点甜）设置成多行文本框 http://w...
已经设定为多行文本了的  结果还是只显示了一大段  没有分行显示
--  作者：李孝春
--  发布时间：2019/6/10 22:59:00
--  回复：（有点甜）设置成多行文本框 http://w...
得到的数据截图

图片点击可在新窗口打开查看此主题相关图片如下：捕获1.jpg
图片点击可在新窗口打开查看

有没有办法生成如下格式的临时表呢

图片点击可在新窗口打开查看此主题相关图片如下：捕获2.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2019/6/10 23:13:00
--  
l23.text=l23.text & vbvrlf &"【" & lst & "】当前一共导入【"  &  val & "】条案件信息,累计推送信息【"  & Val1 & "】条,其中短信【" & Val2 & "】条,邮件【"  & Val3 & "】条"

换行符不要放到后面
--  作者：李孝春
--  发布时间：2019/6/11 8:34:00
--  回复：（有点蓝）l23.text=l23.text & vbvrl...
提示这个？

图片点击可在新窗口打开查看此主题相关图片如下：2222.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2019/6/11 9:15:00
--  

 

Dim lsts As New List(Of String)
lsts= DataTables("参数表").SQLGetValues("单位名称")
For Each lst As String In lsts
    \'output.show(lst)
    Dim Val As Integer= DataTables("案件基本信息").SQLCompute("Count(部门受案号)","操作单位 = \'"& lst & "\'")
    Dim Val1 As Integer= DataTables("告知内容").SQLCompute("Count(部门受案号)","操作单位 = \'"& lst & "\'")
    Dim Val2 As Integer= DataTables("告知内容").SQLCompute("Count(部门受案号)","操作单位 = \'"& lst & "\' and 告知方式_短信=\'是\' ")
    Dim Val3 As Integer= DataTables("告知内容").SQLCompute("Count(部门受案号)","操作单位 = \'"& lst & "\' and 告知方式_邮件=\'是\' ")
    Dim l2 As String="【" & lst & "】当前一共导入【"  &  val & "】条案件信息,累计推送信息【"  & Val1 & "】条,其中短信【" & Val2 & "】条,邮件【"  & Val3 & "】条"
    output.show(l2)
    Dim l23 As WinForm.TextBox= Forms("数据统计").Controls("textbox1")
    Dim s = l23.text & vbcrlf & "【" & lst & "】当前一共导入【"  &  val & "】条案件信息,累计推送信息【"  & Val1 & "】条,其中短信【" & Val2 & "】条,邮件【"  & Val3 & "】条"
    l23.text = s.trim(chr(10), chr(13))
Next