梵音瑜伽在线视频登陆:VB中的一个关于.FIND的的问题

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/30 03:38:15
Private Sub List1_Click()
zia = List1.Text
zib = Split(zia, "号 ")
IDS = zib(0)
End Sub
Private Sub Command1_Click()
RCX.MoveFirst
RCX.Find "学号='" & IDS & "'"
On Error Resume Next
RCX.Fields("班级") = ""
List1.RemoveItem (List1.ListIndex)
Set MSHFlexGrid2.DataSource = RCX
END SUB

LISTBOX是一个读取文本的操作 然后我点了COMMAND 删除了LIST中的文本和数据库中的记录 一切都很正常。 但是程序关闭后 再打开时 我在点COMMAND删除LIST中的文本时候 数据库中的记录却米有删除(有时候能删除数据库中的第一条记录 但是别的记录还是没有变化 ) 这是怎么回事