如何实现文本框内的内容选择性添加到第二个文件框？
请教各位：
现在我想实现以下功能，1、我从SQL SERVER中读出客户信息（姓名）到一文本框中，每一个客户信息排成一行。2、在文本框中选择其中一个或多个客户信息，通过按扭添加到另一个文件框中，或从另一个文本框中删除。请问如何实现？谢谢！
[解决办法]
要实现选择行，为什么不用listbox呢？比文本框方便多了。
假设有两个listbox，名称分别为lsUser1和lsUser2，代码如下（测试通过，不需要按钮，双击列表中的项目即自动移到另一个列表）：
Private Sub LsUser1_DblClick()
If LsUser1.ListCount > 0 Then
lsUser2.AddItem (LsUser1.List(LsUser1.ListIndex))
LsUser1.RemoveItem (LsUser1.ListIndex)
End If
End Sub
Private Sub LsUser2_DblClick()
If lsUser2.ListCount > 0 Then
LsUser1.AddItem (lsUser2.List(lsUser2.ListIndex))
lsUser2.RemoveItem (lsUser2.ListIndex)
End If
End Sub
[解决办法]
使用Listbox 控件,设置 List1和List2控件的Style = 1,command1 和command2 按钮
Private Sub Command1_Click()
l1tol2 List1, List2
End Sub
Private Sub Command2_Click()
l1tol2 List2, List1
End Sub
Private Sub Form_Load()
Dim i
For i = 1 To 10
List1.AddItem i
Next
End Sub
Sub l1tol2(l1 As ListBox, l2 As ListBox)
Dim i
Do While l1.ListCount > 0 And i <= l1.ListCount - 1
If l1.Selected(i) Then
l2.AddItem l1.List(i)
l1.RemoveItem i
i = i - 1
End If
i = i + 1
Loop
End Sub
