13518219792
就用ComboBox，ComboBox由一个List和一个text组成，List里是一个个的对象有ValueMember和DisplayMember两个属性。你将DisplayMember属性改成usercode,username 即可。
创新互联建站成立于2013年，我们提供高端成都网站建设、成都网站制作公司、网站设计、网站定制、全网营销推广、微信平台小程序开发、微信公众号开发、成都网站营销服务，提供专业营销思路、内容策划、视觉设计、程序开发来完成项目落地，为咖啡厅设计企业提供源源不断的流量和订单咨询。
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...
先拖一个DataGridView到界面，然后代码里
Me.DataGridView1.DataSource = dt
不是ListView1.Items.SubItems
而是ListView1.Items(序号).Subitems
首先ListView1.Items是一个集合。
ListView1.Items(序号)表示集合内的一个个体，即ListViewItem
所以应该是这样
Dim litem As New ListViewItem
litem.Text = Fico
litem.SubItems.Add(Fname)
litem.SubItems.Add(Ftype)
litem.SubItems.Add(Fpath)
ListView1.Items.Add(litem)
这里把你的Fico当作了String，如果要显示图标，应该配合ImageList添加。
有这个条件是为了避免 当列表没有选项的时候 或者 有选项但没有选中的时候 点击删除按钮会引发错误 selectindex =-1 是没有选中的时候默认值 而列表序号从0开始 删除一个不存在的序号引发错误
