如何修改列表框中指定行的数据？
看下面的动态图
自定义函数：
'=========================================================================
' 函数名称： List_Edit
' 版 本 号： 1.0
' 函数功能： 本函数作用：修改 LIST 控件中指定行的数据
' 说 明：
' 引 用： --
' 输入参数： lstObject 必选，对象， 指定LIST控件的名称。
' lngIndex 必选，长整型， 指定LIST控件的数据的行号。
' strValue 必选，字符型， 指定要修改为的值。
' 注意事项： 参数 strValue 中的各列数据用“；”分隔
'
' 返回值 ： 无
'
' 如 LIST 有两列数据，可用下面的调用修改指定行的数据。
'
' 调用演示： List_Edit Me.List1, Me.List1.ListIndex, "aaa;111"
'
' 创建日期： 2011-1-16 0:54
'
' 作 者： 鱼儿游游 QQ:7178000
'=========================================================================
Public Sub List_Edit(lstObject As Object, lngIndex As Long, strValue As String)
If lngIndex < 0 Then Exit Sub
lstObject.AddItem strValue, lngIndex '在指定行的前面插入一行。
lstObject.RemoveItem lngIndex + 1 '删除原来的行。
lstObject.ListIndex = lngIndex '恢复当前指针为原来的选中行。
End Sub
'删除所选行数据
Public Sub List_Del(lstObject As Object)
Dim i As Long
With lstObject
For i = .ListCount - 1 To 0 Step -1
If .Selected(i) Then .RemoveItem i
Next i
End With
End Sub
