Private Sub Command3_Click() '删除当前记录事件过程Dim i As Integer定义变量Dim t As Integer定义变量t = rec_no
窗体变量值赋予给局部变量TOpen filename & ".t" For Random As #2 Len = rec_long '打开文件For i = 1 To rec_total循环开始If it Then
如果I 不等于 T Get #1, i, cj
从1号文件中读取 Put #2, , cj
写入2号文件中 MsgBox "删除成功...