| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助：输出结果可否放全部放在一个单元格！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174279) |
| -- 作者：xnsiwei -- 发布时间：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 -- 发布时间：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)
结果：所全部输出结果分布在各行对应【资料股】单元格上
需求：所全部输出结果要在同一个单元格上
谢谢！！
|
| -- 作者：程兴刚 -- 发布时间：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 -- 发布时间：2022/1/8 22:02:00 -- 非常感谢 |