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


  共有2825人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
李孝春
  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 & "】条"
‘只显示了最后一行数据   该文本已经设置为多文本 ’
Next


 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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) 
Next

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜)设置成多行文本框 http://w...  发帖心情 Post By:2019/6/10 22:53:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看


 回到顶部