关于vb中list1内容刷新问题

用vb6.0做了一个功能，在list1中读取数据库中是用户名，当删除某个用户后list1列表中数据自动刷新成最新的数据

遇到的问题，当删除某用户名，如 chuji ，数据库中该条数据已经删除，但list1中数据还是没有删除以前的老数据。
怎么才能解决这种问题，请前辈高手帮忙！~
用Me.Refresh
Me.List1.Refresh 都无效果
数据库中删除的那个数据已经删除掉了

举报该问题

推荐答案 2013-08-12

删除数据库后，再删除List1里选中的这项内容即可：
List1.RemoveItem (List1.ListIndex)

不需要用list1.clear清除列表
更不需要Me.Refresh
Me.List1.Refresh追问

你好，按照你的方法已经实现了
在DataGrid1中删除并实现直接显示最新的列表呢？

追答

1、如果你原先添加到List1里是最新的，删除后，剩下也是最新的。
2、如果你要实时重新显示，请：
List1.clear
for i = 0 to rs.recordcount-1
List1.Addltem rs!用户名
Next i
重新按数据库里的用户名重新显示。

以上代码未调试，如有差错，请自行修正。

温馨提示：答案为网友推荐，仅供参考

当前网址：http://55.wendadaohang.com/zd/QR4484QG4.html

其他回答

第1个回答 2013-08-12

1、List1.RemoveItem (List1.ListIndex) 删除列表中的行
2、用list1.clear清除列表，再list1.add加入现有用户名

Me.Refresh
Me.List1.Refresh
刷新的是屏幕显示内容，并不刷新数据。追问

第一种方法实现了，
那如果在DataGrid1中删除并实现直接显示最新的列表呢？

第2个回答 2013-08-12

这样当然啦，你应该做的是
data1.recordset.refresh

第3个回答 2013-08-12

你删除的应该只是用户名，但实际的数据并没有删掉，如果想删掉的话要在数据表将所有的关于那个用户名的数据都删除才行，

相似回答

VB 刷新List 大侠帮帮忙...(在线等!!!)答：Dim a As Integer Static b() As String Static c() As Integer Dim i As Integer Select Case Index Case 0 List1.AddItem List1.ListCount + 1 & "、" & Text1.Text ReDim Preserve b(List1.ListCount)ReDim Preserve c(List1.ListCount)b(UBound(b)) = Text1 c(UBound(c)) = ...

VB中点击list1列出的项目,同时在text1显示与该项目同一行的字段。_百度...答：留个QQ我帮你改改

在VB中怎么实现循环播放List1中文件答：Dim i For i = 1 To Val(List1.ListIndex)'播放代码 List1.List (i)Next MMControl似乎封装的是MAPI下面是MSDN6关于它的描述的一部分使用 MAPI 控件消息处理应用程序接口 (MAPI) 控件，可用于创建具有电子邮件功能的 Visual Basic 应用程序。MAPI 是一系列的核心系统部件，它们可将任何用于电子...

vb购物车程序,有list1和list2,点击按钮1,将列表一的东西加入到列表2...答：Private Sub Form_Load()On Error Resume NextList1.ClearFor i = 1 To 10List1.AddItem "商品" & iNext iList2.ClearEnd SubPrivate Sub List1_Click()On Error Resume NextList2.AddItem List1.List(List1.ListIndex)List1.RemoveItem (List1.ListIndex)End SubPrivate Sub List2_Click()...

VB中List1中的内容部分显示在List2中答：...List1.AddItem ss '所有的信息都先放入List1 If Instr(ss, Text1.Text) Then List2.AddItem ss '含有文本框中输入信息的则再放入List2 ...