| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何改成循环表达式，请教各位大神 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101680) |
| -- 作者：bootes29 -- 发布时间：2017/6/5 14:45:00 -- 如何改成循环表达式，请教各位大神 Dim ks As Integer= 26 dr("行程特色") = sheet(ks,2).text & sheet(ks+1,2).text & sheet(ks+2,2).text & sheet(ks+3,2).text ........ & sheet(ks+50,2).text |
| -- 作者：有点色 -- 发布时间：2017/6/5 14:48:00 -- Dim ks As Integer = 26 Dim str As String = "" For i As Integer = 0 to 50 str &= sheet(ks+i, 2).Text Next dr("行程特色") = str |
| -- 作者：bootes29 -- 发布时间：2017/6/5 14:50:00 -- 太感谢了，学习了 |