VB中如何在listview添加内容以及删除选定项

Posted 2023-04-13

参考技术A Dim LI As ListItem ' ListItem object
Dim Temp_Counter As Long
Dim Last_Page As Long ' 当前记录集的最后一页
Dim Start_Page As Long '
Dim x As Long

LV_Results.ListItems.Clear
Temp_Counter = 0

Set LI = LV_Results.ListItems.Add(, "a", "姓名")
LI.SubItems(1) = "级别"
LI.SubItems(2) = "总分"
LI.SubItems(3) = "平均得分"

With myRec
.MoveFirst
Do While Not .EOF
' DoEvents
If Trim(!lev) = Combo1.Text Then
Set LI = LV_Results.ListItems.Add(, "K" & !Name, Trim(!Name))
'LI.SubItems(0) = !Name
LI.SubItems(1) = Trim(!lev)
LI.SubItems(2) = Trim(!Allnum)
LI.SubItems(3) = Trim(!agvnum)
LI.ToolTipText = "由 " & Trim(!Name) & " 在" & !gdate & "创下的记录"
End If
.MoveNext
Loop
End With 参考技术B listview只是一个类似于表格的东西
他和datagrid是不一样的
所以你只需要改变数据库的内容就行了,至于数据库中如果添加删除,我想你应该春运 吧本回答被提问者采纳

vb listview如何选定指定行，按“command1”的时候选定第二行(高亮)，如何操作？

参考技术A VB设置某行为选中/非选中状态:\\x0d\\x0aListView.ListItems(i).Selected = True \'第i行被选中\\x0d\\x0aListView.ListItems(i).Selected = False \'第i行不被选中\\x0d\\x0a所以下面就表示选顶第二行，取消选中第一行。\\x0d\\x0aPrivate Sub Command1_Click()\\x0d\\x0a ListView1.ListItems(2).Selected = True\\x0d\\x0a ListView1.ListItems(1).Selected = False\\x0d\\x0aEnd Sub