- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何把多文件字段内容读取到listview控件？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160307)
-- 发布时间：2021/1/28 14:24:00
-- 如何把多文件字段内容读取到listview控件？
如下图：
此主题相关图片如下：qq截图20210128141737.png
1、左侧为多文件字段，如何把该字段里所有的行（即文件名）读取到listview控件的多行（每个文件各一行）
2、如何让listview第二列能读出对应文件的大小或建立时间的数据？
-- 发布时间：2021/1/28 14:38:00
--
1、参考：http://www.foxtable.com/webhelp/topics/2717.htm
2、如果是本地文件参考：http://www.foxtable.com/webhelp/topics/2707.htm
GetFileSize
返回ftp上指定文件的大小，以字节为单位。
示例
Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
Dim sz As Integer
sz = ftp1.GetFileSize("\\photo\\jz.png")
Output.Show("文件大小:" & sz)
GetFileTime
返回ftp上指定文件最后一次修改的日期时间。
Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
Dim sz As Date
sz = ftp1.GetFileTime("\\photo\\jz.png")
Output.Show("修改时间:" & sz)
-- 发布时间：2021/1/28 15:09:00
--
把文件名字段里所有的行（即文件名）读取到listview控件的多行这样写对吗？
For Each dr As DataRow In Tables("表A").Current.DataRow.Lines("文件")
\'从数据表中提取数据
\'Dim Key As String = dr("icon")
Dim r As WinForm.ListViewRow = lvw.Rows.Add() \'增加一行
\'lvw.Images.AddImage(Key, Key & ".ico", Key & "48.ico") \'添加代表这个国家的一对图标
\'r.ImageKey = Key \'指定图标键值
For Each cl As String In cls \'逐列取值
Select Case cl
Case "人口","面积" \'如果是人口列或面积列
r(cl) = format(dr(cl),"#,000") \'则显示千位分割符号
Case Else
r(cl) = dr(cl)
End Select
Next
Next
-- 发布时间：2021/1/28 15:15:00
--
获取到的是文件名，不是datarow