如何将ListBox中的值上下移动

Question

ListBox中值：a
             b
             c
             d将c与b的顺序互换 

Answer 1

Private Sub Command1_Click()
    Dim strTmp As String
    strTmp = Combo1.List(0)
    Combo1.List(0) = Combo1.List(2)
    Combo1.List(2) = strTmp
End Sub

Answer 2

上面的是将 b 与 d 换掉,换错了,应该这样:
Private Sub Command1_Click()
    Dim strTmp As String
    strTmp = Combo1.List(0)
    Combo1.List(0) = Combo1.List(1)
    Combo1.List(1) = strTmp
Exit Sub

Answer 3

还是写错了,应该是第2个和第3个互换:Private Sub Command1_Click()
Dim strTmp As String
strTmp = Combo1.List(1)
Combo1.List(1) = Combo1.List(2)
Combo1.List(2) = strTmp
E Sub

Answer 4

楼上真可爱其实想把他们交换位置比较简单的就是楼上的办法了。
把其中一个读出来，存在临时变量
把另一个值放到被读出来的那里，
把临时变量放到另一个里。
也就是SWAP的做法

Answer 5

谢大家捧场，在大家的启发下，偶这榆木脑袋算是开了窍解决了上面的问题，但接下来又困扰俺的是如何将listbox中的值读出来，作为选中的字段，也就是：select 选中的字段 from 表名，然后将这个记录集输出为一个文本文件temp.txt
解后马上结帖给分。。：）

Answer 6

Combo1.List(Combo1.ListIndex)'表示选中的字段

Answer 7

如果是SQL2000数据库,可以用存储过程来做,通过引用ADO来执行下面的SQL语句就行(语句中的 dbname tablename servername　password　需要自己改过来)：strsql = "EXEC master..xp_cmdshell ' bcp ""Select " & List1.List(List1.ListIndex) & " from dbname..tablename"" queryout c:\DT.txt -c -S servername -U sa -P password '"

Answer 8

不好意思，楼上的兄弟我用的是ACCESS，能给我一点vba的代码吗？？？？

Answer 9

偶，这个我们学的时候我作了的
有INDEX的变换，还有插入……