动态改变combox的某行的位置

只能先remove item，再add item，代码如下：

'cbojob当前选择向下移一位 Private Sub cmdPostpone_Click() Dim strItem As String Dim lngIndex As Long 'copy原来的数据,包括列数据 strItem = Me.cboJob & ";" & Me.cboJob.Column(1) & ";" lngIndex = Me.cboJob.ListIndex '删除原来的数据 Me.cboJob.RemoveItem lngIndex Debug.Print Me.cboJob.ListIndex '当前index变为-1 '在新位置添加数据 Me.cboJob.AddItem strItem, lngIndex + 1 Debug.Print Me.cboJob.ListIndex '当前index变为lngIndex + 1 '把index改回原来那一行 Me.cboJob.SetFocus Me.cboJob.ListIndex = lngIndex End Sub

 

感谢of123指点。