以文本方式查看主题

-  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)

--  作者:wh420
--  发布时间: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)


--  作者:wh420
--  发布时间: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

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