Question

vb删除记录

Private Sub Command5_Click() '根据姓名删除记录
Dim i%, j%, TName$
TName = Text1
For i = 1 To n
If TName = stud(i).Name Then '判断记录中的姓名是否与要删除的姓名相同
For j = i To n - 1
stud(j) = stud(j + 1)
Next j
n = n - 1
If n > 0 Then ReDim Preserve stud(n) '重定义动态数组stud为n个元素，并要求保留数据
StatusBar1.Panels(2) = n
Command2_Click
Exit For '退出循环
End If
Next i
If i > n Then MsgBox ("要删除的姓名找不到!") '用信息框显示"要删除的姓名找不到!"
End Sub

运行后，删除不了。输对的名字……也一直显示姓名找不到

Answer 1

TName = Text1.Text
细心点