vb问题，新手，帮帮忙吧

来源：百度知道编辑：UC知道时间：2024/05/29 22:07:06

Private Sub Form_Load()
filename = App.Path & "\" & "person.dat"
reclong = Len(pers)
Call fopen
End Sub

Private Sub add_Click()
Dim i As Integer, answer As Integer
For i = 1 To rectotal
Get #1, i, pers
If Trim(pers.pname) = Trim(tname) Then
answer = MsgBox("已存在，要修改吗？", vbQuestion + vbYesNo, "修改")
recno = i
If answer = vbYes Then
Call pput
Else
Call pdisplay
End If
Exit Sub
End If
Next i
rectotal = rectotal + 1
recno = rectotal
Call pput

End Sub

Private Sub del_Click()
Dim i As Integer
Open filenmae & ".tmp" For Random As #2 Len = reclong
For i = 1 To rectotal
If i <> recno Then
Get #1, i, pers
Get #2, , pers
End If
Next i
Close
Kill filename
Name filename & ".tmp" As filename----总是提示文件未找到
Call

以下语句有2个错误:
1 文件名变量拼写错误(OPEN语句中filenmae应该为filename)
2 输出写成了输入(Get #2, , pers,造成实际未创建.tmp文件)

Open filenmae & ".tmp" For Random As #2 Len = reclong
For i = 1 To rectotal
If i <> recno Then
Get #1, i, pers
Get #2, , pers

Open filenmae & ".tmp" For Random As #2 Len = reclong中的filenmae与Name filename & ".tmp" As filename里面的filename不一样，拼写错了么？还有就是这个变量在那里定义的？他应该是模块级别的

555我都看不明白的如果你是新手。。。我不活了

VB 6.0 新手问题 vb新手问题 VB的新手问题 VB新手问题新手求教VB问题 vb新手有个小问题 vb小问题,新手?? VB中连接SQL.来帮帮忙吧,我是新手 VB 6。0新手问题 - -一个VB问题~新手指教