加上trim,所有的rs都要加上trim
把空格去掉!! rs.Open "select distinct name from HRDOCS where dept='" & Trim(deptRs!dept) & "'", cn, 1, 3
把空格去掉!! rs.Open "select distinct name from HRDOCS where dept='" & Trim(deptRs!dept) & "'", cn, 1, 3
解决方案 »
- 10-28-2008 要显示成 10/28/2008 如何写
- vb如何用 sendkey ^f 打开系统的查找对话框?
- 如何读取一个图片,文档,mp3文件的内容,将其存成sql数据库中的OLE类型对象,然后再将其从sql中读出来恢复成文件,将他们显示出来!解决
- 如何将数据存入数据库中
- 求助几个windowsAPI
- 点对点传送大文件时,不能传输完毕,请教各位大虾,怎么解决?
- 非一般高手能解决的超级难题,已困扰了我们公司的程序员近一个月!
- 出现这个错误怎么办呢?很奇怪的~)~
- VB问题欢迎指教,谢谢!
- 请各位高手帮小女看看,在vb中,listbox如何实现item的上下移动,谢谢!!!!
- 在访问access的SQL语句中,有没有什么可以实现CASE WHEN THEN的功能?
- 急急急!!!解决问题一定给分!!!
TreeView1.Nodes.Add deptRs!dept, tvwChild, rs!Name, rs!Name
'TreeView1的Key值重复deptRs!dept
rs.MoveNext
Wend
TreeView1.Nodes.Add TreeView1.Nodes(deptRs!dept), tvwChild, rs!Name, rs!Name
就OK了
改为TreeView1.Nodes.Add deptRs!dept, tvwChild, rs!Name & "", rs!Name & ""