13518219792
没看见你定义tiSeq,这个是个什么东西？变量?还是一个字符窜？
创新互联建站服务项目包括凌源网站建设、凌源网站制作、凌源网页制作以及凌源网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，凌源网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到凌源省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
找到问题了，问题在于你的Adaptor 的参数类型是IList,而iList是定长数组不支持Add,Remove.所以你要先将从数据库里面传化来的数据一个一个加进你的ArrayList就行了。例如可以先复制给一个Array,再遍历Array,添加数据到ArrayList.简单的测试方法。Disable
sumWrong = ArrayList.Adapter((mDt.Rows(2).Item("wrongId").ToString().Split(",")))
这句，你的程序就能运行。
使用动态定义
ReDim a() AS **********'定义一个动态数组
...........
计算出第一个Y
ReDim a(0)
a(0)=Y
.....................
计算出第二个Y
ReDim Preserve a(1) '再次分配元素并保留原有元素
a(1) =Y
.........................
.........................
ReDim Preserve a(N) '第N次分配元素并保留原有元素
a(N) =Y
用ListView的方法比较简单，直接添加一个控件顺便把0001写到Tag属性里去就行了。如果只用ListBox的话，
先创建一个类代表城市
Public Class City
Public Name As String
Public Num As String
Public Sub New(na As String, nu As String)
Name = na
Num = nu
End Sub
Public Overrides Function ToString() As String 'ListBox需要这个函数来显示
Return Name
End Function
End Class
然后把这个类的实例添加进去即可，比如：
ListBox1.Items.Add(New City("北京", "0001"))
读取的话就很简单，比如我要读第一项
Dim obj = ListBox1.Items(0)
If TypeOf obj Is City Then
Dim c As City = obj
'c.Name就是"北京"，c.Num就是"0001"了
End If
遍历之类的可以灵活使用，你也可以在类里面加些其它内容。
list1.additem j 意思就是把j添加至list1列表中,这是在一个for 循环中，循环了10次，添加了10次 j，即 list1 中 有10列分别为：1,3,6,10,15,21,28,36,45,55
下面又来了一个循环， list1.removeitem 删除列，删除的是 list1.listcount - i ，list1.listcount 就是总列数为10，减去 i ，i 是1到4，即10-1，9-2，8-3，7-4 每减掉一次，list1.listcount 就少了一条记录。
(注意，list1.listcount-1 是最后一条记录)
减掉了第 9，7，5，3列
剩余为 1,3,6,15,28,45
结果为：3,15,28
'ListCount返回列表框中的项目总数
'ListCount-1是列表框中最后一个项目的索引号
'亏你提醒了，我写错了，上面修改了，第一个索引为0，最后一个为9.
'也就是，问题所问的第二列的索引为1，第四列的索引为3...
Dim sl As New ArrayList
sl.Add("单个字符串")
Dim sa As String() = {"a", "b", "c"}
sl.AddRange(sa) '添加字符数组
Dim objs As Object() = sl.ToArray '将数据转换为数组
注意，ArrayList不是类型安全的集合方式，如果你的集合只要存储字符串的话，建议用List(Of String)来进行操作。
