多行文本为什么只显示了最后一条记录呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多行文本为什么只显示了最后一条记录呢？

共有2544人关注过本帖树形打印复制链接主题：多行文本为什么只显示了最后一条记录呢？

李孝春

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

多行文本为什么只显示了最后一条记录呢？ 发帖心情

Post By：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 & "】条"

‘只显示了最后一行数据该文本已经设置为多文本 ’

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/6/5 10:59:00 [只看该作者]

l23.text = l23.text & "【" & lst & "】当前........

李孝春

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）l23.text = l23.text &&nbs... 发帖心情

Post By：2019/6/10 14:51: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=l23.text &"【" & lst & "】当前一共导入【" & val & "】条案件信息,累计推送信息【" & Val1 & "】条,其中短信【" & Val2 & "】条,邮件【" & Val3 & "】条" & Chr(13) & Chr(10)

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/6/10 15:50:00 [只看该作者]

设置成多行文本框

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

李孝春

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜）设置成多行文本框 http://w... 发帖心情

Post By：2019/6/10 22:53:00 [只看该作者]

已经设定为多行文本了的结果还是只显示了一大段没有分行显示

李孝春

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜）设置成多行文本框 http://w... 发帖心情

Post By：2019/6/10 22:59:00 [只看该作者]

得到的数据截图

此主题相关图片如下：捕获1.jpg

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

此主题相关图片如下：捕获2.jpg

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/6/10 23:13:00 [只看该作者]

l23.text=l23.text & vbvrlf &"【" & lst & "】当前一共导入【" & val & "】条案件信息,累计推送信息【" & Val1 & "】条,其中短信【" & Val2 & "】条,邮件【" & Val3 & "】条"

换行符不要放到后面

李孝春

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）l23.text=l23.text & vbvrl... 发帖心情

Post By：2019/6/11 8:34:00 [只看该作者]

提示这个？

此主题相关图片如下：2222.png

有点甜

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

下一主题 >> << 上一主题

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

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