如何让列表框得到值，并且能用“↑”，“↓”进行选择操作

简

如附件所示，我有两个问题想请教：

1）我采用了分页的方式，我希望当我输完每一页最后一个控件的数据后，回车键或者Tab键就直接跳到列表框上的下一个值上；

比如我在第一页输入数据时，此时列表框的值为1；当我输入完性别后，光标就跳在列表框上，并且列表框的值为2，显示第二页的内容；
当我输入完第二页的学历数据后，光标就又跳在列表框上，这时列表框的值为3，显示第三页的内容。

2）我也希望可以通过键盘上的“↑”，“↓”上下键进行选择，在子窗体里自动显示相对应的页。

比如通过“↑”，“↓”列表框值为1，显示第四页的内容，列表框值为2，则显示第三页的内容。

简

这个问题没解决，不能沉了，自已顶哈~~~

王老五

学习一下

简

这个帖子，也麻烦高手帮我看看。

todaynew

可参见《图片幻灯》一文中，列表框选定记录移动的处理方式。

todaynew

用回车键后跳入下一页。

不过对分页显示的问题不太熟悉，如何能跳完整的一页不太会，你自己琢磨一下。

Private Sub lb0_AfterUpdate()
    Me.sub0.SetFocus
    Me.sub0.Form.GoToPage Me.lb0.Value
End Sub


Private Sub txtbK1_AfterUpdate()
Me.Parent.lb0.Value = Me.Parent.lb0.Column(0, 3)
End Sub

Private Sub txtsH2_AfterUpdate()
Me.Parent.lb0.Value = Me.Parent.lb0.Column(0, 1)
End Sub

Private Sub txtsK_AfterUpdate()
Me.Parent.lb0.Value = Me.Parent.lb0.Column(0, 2)
End Sub

goto2008

学习

简

多谢todaynew ，在你的代码基础改动了一下，就符合了我想要的效果。
原来都在Parent上，今天第一次用它，收获不小。

改动后的代码如下：

Private Sub txtbK1_AfterUpdate()
   Me.Parent.lb0.Value = 3
   Me.Parent.sub0.SetFocus
   Me.Parent.sub0.Form.GoToPage Me.Parent.lb0.Value
End Sub

Private Sub txtsH2_AfterUpdate()
   Me.Parent.lb0.Value = 4
   Me.Parent.sub0.SetFocus
   Me.Parent.sub0.Form.GoToPage Me.Parent.lb0.Value

End Sub

Private Sub txtsK_AfterUpdate()
   Me.Parent.lb0.Value = 2
   Me.Parent.sub0.SetFocus
   Me.Parent.sub0.Form.GoToPage Me.Parent.lb0.Value
End Sub

风啸啸

学习。

todaynew

还是用Me.Parent.lb0.Value = Me.Parent.lb0.Column(1, 3)，好一些。这样可以看到列表框内的移动效果。另外用了
Me.Parent.sub0.Form.GoToPage Me.Parent.lb0.Value这句，那么
Me.Parent.sub0.SetFocus这句是多余的。

关于上下移动键的问题，可以用滚轮方式解决，具体实现方法可参见《滚轮妙用》一文。


此外，今天也向你学习到了列表框类型为值列表情况下，数据分列的办法。谢谢！