- 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=98656)
-- 发布时间：2017/4/4 16:17:00
-- ListView代码错误
原文件路径：工程管理/年份/档案编号
此主题相关图片如下：搜狗截图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 \'将行的名称设置为标题,也就是国家
Next
lvw.ResumeRedraw() \'恢复绘制
上面代码显示结果： 工程管理/年份
帮忙改成显示结果：工程管理/年份/档案编号 下面的文件
-- 发布时间：2017/4/4 16:24:00
--
没看懂，到底什么问题？
-- 发布时间：2017/4/4 16:26:00
--
就是想在LISTVIEW窗口中显示远程目录（工程管理/年份/档案编号）里面的文件
现在的代码只显示了根目录下面的文件
[此贴子已经被作者于2017/4/4 16:26:18编辑过]
-- 发布时间：2017/4/4 16:29:00
--
就是这段代码有问题
Dim Key As String = "工程管理" & "/" & Tables("项目资料").Current("年份") & "/" & Tables("项目资料").Current("档案编号")
-- 发布时间：2017/4/4 16:40:00
--
此主题相关图片如下：搜狗截图17年04月04日1639_3.png
想显示上面文件目录中的文件，现在是显示了文件夹，我想显示文件夹中的文件名称
此主题相关图片如下：搜狗截图17年04月04日1608_1.png
帮忙修改一下
[此贴子已经被作者于2017/4/4 16:41:13编辑过]
-- 发布时间：2017/4/4 17:06:00
--
代码设置的是图标，和文件有关系吗
r.Text = dr("文件名称")