主题：多行文本 为什么只显示了最后一条记录呢？

设置成多行文本框

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

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