Foxtable(狐表)用户栏目专家坐堂 → 求助:输出结果可否放全部放在一个单元格!


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

主题:求助:输出结果可否放全部放在一个单元格!

帅哥哟,离线,有人找我吗?
xnsiwei
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:454 积分:3217 威望:0 精华:0 注册:2019/11/3 22:21:00
求助:输出结果可否放全部放在一个单元格!  发帖心情 Post By:2022/1/8 20:44:00 [只看该作者]

求助:输出结果可否放全部放在一个单元格!
代码如下:
Dim ftp1 As New FtpClient
Dim fls As List(of String)
ftp1.Host="192.168.1.99"
ftp1.Account = "foxdd"
ftp1.Password = "98390809"
fls = ftp1.GetFileList("\日常工作目录\*.*")
For Each fl As String In fls
       Dim r As Row
    r =  Tables("rcwd").addnew
    r("资料股") = fl
 Output.Show(fl)
Next

结果:所全部输出结果分布在各行对应【资料股】单元格上

需求:所全部输出结果要在同一个单元格上

谢谢!!
[此贴子已经被作者于2022/1/8 20:45:17编辑过]

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


加好友 发短信
等级:小狐 帖子:328 积分:5068 威望:0 精华:0 注册:2019/1/1 15:53:00
  发帖心情 Post By:2022/1/8 21:18:00 [只看该作者]

求助:输出结果可否放全部放在一个单元格!
代码如下:
Dim ftp1 As New FtpClient
Dim fls As List(of String)
ftp1.Host="192.168.1.99"
ftp1.Account = "foxdd"
ftp1.Password = "98390809"
fls = ftp1.GetFileList("\日常工作目录\*.*")
dim s as string = ""
For Each fl As String In fls
    s=s & f1 & vbcrlf
Next
    
Dim r As Row
r =  Tables("rcwd").addnew
r("资料股") = s
 Output.Show(s)

结果:所全部输出结果分布在各行对应【资料股】单元格上

需求:所全部输出结果要在同一个单元格上

谢谢!!

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7237 积分:40614 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2022/1/8 21:51:00 [只看该作者]

是要这个结果吗?
Dim ftp1 As New FtpClient
Dim fls As List(of String)
Dim r As Row
ftp1.Host="192.168.1.99"
ftp1.Account = "foxdd"
ftp1.Password = "98390809"
fls = ftp1.GetFileList("\日常工作目录\*.*")
dim s as string = ""
For Each fl As String In fls
    r =  Tables("rcwd").addnew
    r("资料股") = fl
Next

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


加好友 发短信
等级:一尾狐 帖子:454 积分:3217 威望:0 精华:0 注册:2019/11/3 22:21:00
  发帖心情 Post By:2022/1/8 22:02:00 [只看该作者]

非常感谢

 回到顶部