list1添加文件，版主帮看看 - 编程论坛

#2

Artless2012-11-10 11:27

以下是引用wxflw在2012-11-9 21:31:56的发言：


   rs.Fields("图片")的值在数据库中是文件夹的绝对路径：C:\Users\Administrator\Desktop\信息管理系统 \ 图片 \ 塘南1 - 101\
保存类型是文本
    A = rs.Fields("图片")
    B = Dir("A" & "*.*")
While Len(B) > 0
     .List1.AddItem B
     B = Dir
Wend
我想将C:\Users\Administrator\Desktop\信息管理系统 \ 图片 \ 塘南1 - 101\
文件夹中所有的图片文件名字全部载入到listbox中
为什么不能成功？
先谢了

.List1.AddItem B去掉前面的点

#3

wxflw2012-11-10 12:23

w忘了说了！
.List1.AddItem B
全句是form4.List1.AddItem B不是给本窗体中的list1是给另外一个窗体中的list1
不好意思啊！问题没说全
还有!我试了几次，发现
While Len(B) > 0
老是判断为=0怎么回事？

[ 本帖最后由 wxflw 于 2012-11-10 12:27 编辑 ]

#4

风吹过b2012-11-10 13:27

B = Dir("A" & "*.*")

A 去掉双引号。

#5

wxflw2012-11-10 16:29

还是不行，
在While Len(B) > 0中直接判断B=0结束过程
我说一下我想做的，请教我一下
我要做的是将form1中查询的到数据加载到form2对应的控件中，其他的都搞定了
就剩下最后的加载图片问题了！form2控件中只能使用listbox来存储查找到的图片文件名
图片是存在文件夹中的，数据库只是存储了文件夹的路径，现在在form1中查找到了记录
现在想在form2窗体的list1中载入数据库所记录的文件夹中的文件名，文件是N个
怎么弄都搞不定！！伤脑筋！在网上也找了几个方法都试过了就是在判断文件夹中是否有文件这里卡主了！
无奈的喊一声救命啊！！
我QQ：820660020
要做晚饭去了！要不人全家都得恩肚子了！
完了再来看回复！拜托了！

#6

风吹过b2012-11-11 09:04

a = "D:\我的文档\桌面壁纸\"
    b = Dir(a & "*.*")
While Len(b) > 0
     '.List1.AddItem B
     MsgBox b
     b = Dir
Wend

测试没问题，你检测一下， A 及 B ，以及单步执行时的各个变量内容。
例如：A 的最后是不是包含一个 \ 。

#7

wxflw2012-11-11 09:59

经过单步测试将变量值显示在text13.text中
结果如下！不知道什么问题，关键出在b = Dir(A & "*.*")上

Q = rs.Fields("图片")
Text13.Text = Q    '在这里Text13.Text 中显示的值是C:\Users\Administrator\Desktop\信息管理系统 \ 图片 \ 塘南1 - 1\
                    ’和我数据库中的记录没有差别，所以Q = rs.Fields("图片")这句没有问题
A = Q
Text13.Text = A    '在这里Text13.Text 中显示的值是C:\Users\Administrator\Desktop\信息管理系统 \ 图片 \ 塘南1 - 1\
                   '在这里也没错
b = Dir(A & "*.*")
Text13.Text = b    '这里出错了！这里text13中出现的是空值，就是什么都没有
Text13.Text = Len(b)  '上面出错了所以这里的值就显示了个0，所以那个while就不能执行了
                       我单步下来的结果就是这样，不知道是什么问题，一直都困扰在这个位置
我发现问题了！在我存储文件路径的时候好像就出问题了
我是这样存的

apptp = " " & App.Path & " \ 图片 \ " & Trim(Text1.Text + Text2.Text + " - " + Text3.Text) & ""
rs.Fields("图片") = Trim(apptp + "\")
我发现存入到数据库中后，信息管理系统后面多了个空格然后再\然后又是一个空格再是图片又是空格\空格塘南1空格-1\
这里的空格怎么来的？是我上面的语句增加了空格所致？我打字的时候习惯了按一下空格键以至于 \ 图片 \ " & Trim(Text1.Text + Text2.Text + " - " + Text3.Text) 里有空格出现
所以是我一开始就错了！
现在问题已经解决，谢谢两位版主耐心的教导，真的十分感谢，开始我没有发觉，发到论坛上来才发觉字符串中有空格，看来有事上论坛不会错的！呵呵！