求教

hk

当点击>>键可以把有选择的框1的内容选择到框2内如何实现，或相反

方漠

Here is the example for you.



[em01]

高处不胜寒

哦，只能XP以上版本用

liujiayou

Private Sub Command10_Click()

    Dim lngIdx As Long

   

    lngIdx = Me.Text3.ListIndex

   

    If lngIdx < 0 Then

        Exit Sub

    End If

   

   

    Me.Text5.AddItem Me.Text3.Value

   

    Me.Text3.RemoveItem lngIdx

   

End Sub

注意：如果你将text3的数据源直接和表相联的话，将不能使用removeitem，因为二者已经BOUND。解决的方法：可以设定text3的行来源类型为“值列表”，然后在在FORM＿LOAD中加入初始化text3的代码。