以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何改成循环表达式，请教各位大神  (http://foxtable.com/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
--  
太感谢了，学习了