| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 循环内容追加 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187267) |
| -- 作者：xunxun0903 -- 发布时间：2023/7/4 15:06:00 -- 循环内容追加 dim test as string For Each dr As DataRow In DataTables("成绩表").Select("","总分 DESC") 假如循环结果有10行，我怎么样可以把10行结果姓名组合到一个文本变量[test]中去？ |
| -- 作者：有点蓝 -- 发布时间：2023/7/4 15:09:00 -- dim test as string = DataTables("成绩表").GetComboListString("姓名","","总分 DESC") |
| -- 作者：xunxun0903 -- 发布时间：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("密码") Next 这个循环有多行，我想把多行内容组合到一起，通过邮件发送出去！
[此贴子已经被作者于2023/7/4 15:17:39编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2023/7/4 15:19:00 -- dim test as string = DataTables("成绩表").sqlGetComboListString("设备编号+姓名+用户名+密码",""[warn] = true AND [操作日期] >= #" & warn_date.AddDays( - 75) & "#").replace("|",vbcrlf) msgbox(test)
|
| -- 作者：xunxun0903 -- 发布时间：2023/7/4 17:06:00 -- 设备编号+姓名+用户名+密码 这个获取出来的值 可以添加分隔符吗？ 如 编号：设备编号 姓名：姓名
|
| -- 作者：有点蓝 -- 发布时间：2023/7/4 17:10:00 -- dim test as string = DataTables("成绩表").sqlGetComboListString("\'编号：\' + 设备编号+.......... |