ACCESS VBA 组合框添加项目后怎么删除，怎么遍历？

依维　发表于：2013-09-27 16:04:51 　

我用以下循环给一个列表框添加项目，但是我现在要把添加的项目全部删除，RemoveItem一次只能删除一个项目，需要用到循环遍历全部项目，请问这个该怎么遍历？或者说有没有更好的办法？请前辈们支招，感激不尽。

Dim j As Double

j = Rs1("下限")
For i = 1 To CInt((Rs1("上限") - Rs1("下限")) / Rs1("步长"))
Me.记录值.AddItem j
j = j + Rs1("步长")
Next i

Me.记录值.AddItem Rs1("上限")

叶海峰发表于：2013-09-27 17:13:57

me.记录值.rowsource=""'清空数据源

依维发表于：2013-09-27 19:25:26

非常谢谢！

总记录：2篇页次：1/1 9 1 :

Access交流中心