求解：列表框是多重选择类型的取值

tobbs

一个列表框，用了多重选择，由于不能用List.value的方式获取列表框当前值，所以用了如下方式获取当前值。现在的问题是：单击选择列表框项能正常取值，但用方向键上下选择值的时候，值就不能同步显示了，具体见附件，先谢谢各位老大费心帮助了。
   Dim ctl As Control, x As Variant
    Set ctl = Me.List0
    For Each x In ctl.ItemsSelected
       yy = ctl.Column(0, x)
       yyy = ctl.Column(1, x)
    Next
    Set ctl = Nothing

http://www.accessoft.com/userfiles/tobbs/20110502003048.rar

tobbs

up              

xinrenq

在列表框键释放事件，也就是keyup事件写上一样的代码就可以了

tobbs

问题解决，多谢，咳，，，，经验不足

ycxchen

yy 、 yyy 为何不用声明变量类型的？