Dim itm As ListItemSet itm = ListView1.ListItems.Add(, , ListView1.ListItems.Count + 1) '序号itm.SubItems(1) = namestritm.SubItems(2) = sexstr
