循环内容追加 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 循环内容追加

共有2323人关注过本帖树形打印复制链接主题：循环内容追加

xunxun0903

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

加好友

发短信

等级：童狐帖子：278 积分：3395 威望：0 精华：0 注册：2017/12/20 15:51:00

循环内容追加 发帖心情

Post By：2023/7/4 15:06:00 [只看该作者]

dim test as string

For Each dr As DataRow In DataTables("成绩表").Select("","总分 DESC")
Output.Show(dr("姓名"))
Next

假如循环结果有10行，我怎么样可以把10行结果姓名组合到一个文本变量[test]中去？

有点蓝

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

加好友

发短信

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

Post By：2023/7/4 15:09:00 [只看该作者]

dim test as string = DataTables("成绩表").GetComboListString("姓名","","总分 DESC")

xunxun0903

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

加好友

发短信

等级：童狐帖子：278 积分：3395 威望：0 精华：0 注册：2017/12/20 15:51:00

Post By：2023/7/4 15:17:00 [只看该作者]

Dim warn_Date As Date = Date.Today

Dim warn_C As String

For Each dr As DataRow In DataTables("用户明细").Select("[warn] = true AND [操作日期] >= " & warn_date.AddDays( - 75) & " ")

warn_C = dr("设备编号") & dr("姓名") & dr("用户名") & dr("密码")

这个循环有多行，我想把多行内容组合到一起，通过邮件发送出去！

[此贴子已经被作者于2023/7/4 15:17:39编辑过]

有点蓝

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

加好友

发短信

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

Post By：2023/7/4 15:19:00 [只看该作者]

dim test as string = DataTables("成绩表").sqlGetComboListString("设备编号+姓名+用户名+密码",""[warn] = true AND [操作日期] >= #" & warn_date.AddDays( - 75) & "#").replace("|",vbcrlf)

msgbox(test)

xunxun0903

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

加好友

发短信

等级：童狐帖子：278 积分：3395 威望：0 精华：0 注册：2017/12/20 15:51:00

Post By：2023/7/4 17:06:00 [只看该作者]

设备编号+姓名+用户名+密码

这个获取出来的值可以添加分隔符吗？

如编号：设备编号姓名：姓名

有点蓝

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

加好友

发短信

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

Post By：2023/7/4 17:10:00 [只看该作者]

dim test as string = DataTables("成绩表").sqlGetComboListString("'编号：' + 设备编号+..........

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

主题：循环内容追加