ListView代码错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

原文件路径：工程管理/年份/档案编号

此主题相关图片如下：搜狗截图17年04月04日1608_1.png

现显示格式：工程管理/年份

此主题相关图片如下：搜狗截图17年04月04日1609_2.png

代码：

Dim ftp As new FTPClient

ftp.Host="192.168.1.8"

ftp.Port = 21

ftp.Account = "cgftp"

ftp.Password = "Xj671766"

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

lvw.StopRedraw() '暂停绘制

lvw.View = ViewMode.SmallIcon '显示模式为小图标

lvw.CheckBoxes = True

For Each dr As DataRow In DataTables("项目资料").DataRows '从数据表中提取数据

Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行

Dim Key As String = "工程管理" & "/" & Tables("项目资料").Current("年份") & "/" & Tables("项目资料").Current("档案编号") '显示名称

lvw.Images.AddLargeImage(Key, Key) '添加照片,直接用文件名作为图片键值

r.ImageKey = Key '指定图标键值

r.Text = dr("档案编号") '指定行的标题

r.Name = r.Text '将行的名称设置为标题,也就是国家

lvw.ResumeRedraw() '恢复绘制

上面代码显示结果：工程管理/年份

帮忙改成显示结果：工程管理/年份/档案编号下面的文件

没看懂，到底什么问题？

就是想在LISTVIEW窗口中显示远程目录（工程管理/年份/档案编号）里面的文件

现在的代码只显示了根目录下面的文件

[此贴子已经被作者于2017/4/4 16:26:18编辑过]

就是这段代码有问题

Dim Key As String = "工程管理" & "/" & Tables("项目资料").Current("年份") & "/" & Tables("项目资料").Current("档案编号")

此主题相关图片如下：搜狗截图17年04月04日1639_3.png

想显示上面文件目录中的文件，现在是显示了文件夹，我想显示文件夹中的文件名称

此主题相关图片如下：搜狗截图17年04月04日1608_1.png

帮忙修改一下

[此贴子已经被作者于2017/4/4 16:41:13编辑过]

代码设置的是图标，和文件有关系吗

r.Text = dr("文件名称")

主题：ListView代码错误