Question

VB中在list中添加一项之后,再添加新的项目的时候怎么让前面添加的项显示





Answer 1

从你的代码中可以看出，当你增加姓名时，你的List1确实是只显示第一项也就是姓名的：
For n = 1 To 记录数
添加项 = 记录(1, n) & Space(10 - Len(记录(1, n)) '从这里可以看出，是只有第一项的！
List1.AddItem 添加项
Next n
而当增加单号时，则是只显示前两项即姓名和单号的，代码我就不写了，反正明眼人一看就知道的。
正确的做法应该是不管增加的是什么数据，都要把四列数据显示出来才行。

追问

我那样做过，但是还是不行

追答

那就是你没做好嘛。你把增加通信地址那里的 添加项=... 的代码都复制到另外三个按钮事件里面就行了。

Answer 2

你的代码呢？

追问

追答

看了一下你贴的代码，应该是以下原因造成的：

1. “记录数” 这个可能是全局变量，显示记录时 不要用它，而要用 "记录"数组 的第二维的个数。这样就不会因为“记录数”变化影响到记录在list中显示的问题。

2. 显示记录时没有号码和地址：按你的 Command3_Click事件的代码来看，应该是“记录项”里只加进了 记录(1,n) 和 记录(2,n)，而没有 记录(3,n)  记录(4,n)
   

追问

你好，那我应该怎么改呢？你说的第一点我不是很明白，我刚学这个没多久，而你说的第二点，我试过了也是不行的

追答

“记录数” 这个可能是全局变量, 会因为你的其它过程或函数改变，

以致它的值不是 “记录” 这个数组的第二维的长度，所以你在用List显示数据时用它的话，就有可能出现问题。

建议显示数据单独写一个过程，再调用，如：

Function Refresh()
List1.Clear
for n=1 to ubound(记录,2)-lbound(记录,2)-1  '取“记录”数组第二维的长度
添加项=                 '自己加
List1.AddItem 添加项
Next
End Function