Foxtable(狐表)用户栏目专家坐堂 → 如何把多文件字段内容读取到listview控件?


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

主题:如何把多文件字段内容读取到listview控件?

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


加好友 发短信
等级:五尾狐 帖子:1107 积分:10562 威望:0 精华:0 注册:2014/2/19 16:32:00
如何把多文件字段内容读取到listview控件?  发帖心情 Post By:2021/1/28 14:24:00 [只看该作者]

如下图:

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210128141737.png
图片点击可在新窗口打开查看

1、左侧为多文件字段,如何把该字段里所有的行(即文件名)读取到listview控件的多行(每个文件各一行)
2、如何让listview第二列能读出对应文件的大小或建立时间的数据?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105961 积分:538880 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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)


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


加好友 发短信
等级:五尾狐 帖子:1107 积分:10562 威望:0 精华:0 注册:2014/2/19 16:32:00
  发帖心情 Post By: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

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105961 积分:538880 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/28 15:15:00 [只看该作者]

获取到的是文件名,不是datarow

For Each s as string In Tables("表A").Current.DataRow.Lines("文件")

 回到顶部