- Код: Выделить всё
Type userInfo
uFamilia As String
uName As String
uOtch As String
uPhone As Single
uAdres As String
End Type
Private Sub cmdAdd_Click()
Open "C:\base.dat" For Binary As #1
Dim addData As userInfo
'Создаю первую запись
addData.abFamilia = "Фамилия #1"
addData.abName = "Имя #1"
addData.abOtch = "Отчество #1"
addData.abPhone = 1111111
addData.abAdres = "Адрес #1"
'Добавляю в файл первую запись
Put #1, 1, addData
'Создаю втрорую запись
addData.abFamilia = "Фамилия #2"
addData.abName = "Имя #2"
addData.abOtch = "Отчество #2"
addData.abPhone = 2222222
addData.abAdres = "Адрес #2"
'Добавляю в файл вторвую запись
PUT #1, 2, addData
'Закрываю файл
Close
End Sub
Private Sub cmdShow_Click()
Open "C:\base.dat" For Binary As #1
Dim readData As userInfo
'Открываю первую запись
GET #1, 1, readData
'Вывожу в форму содержимое первой записи
Me.Print "Фамилия 1 - "+ readData.abFamilia
Me.Print "Имя 1 - "+ readData.abName
Me.Print "Отчество 1 - "+ readData.abOtch
Me.Print "Телефон 1 - "+ readData.abPhone
Me.Print "Адрес 1 - "+ readData.abAdres
Me.Print ""
'Открываю вторую запись
GET #1, 2, readData
'Вывожу в форму содержимое второй записи
Me.Print "Фамилия 2 - "+ readData.abFamilia
Me.Print "Имя 2 - "+ readData.abName
Me.Print "Отчество 2 - "+ readData.abOtch
Me.Print "Телефон 2 - "+ readData.abPhone
Me.Print "Адрес 2 - "+ readData.abAdres
Me.Print ""
End Sub
Почему, при нажатии на cmdShow в форму не выводится последовательно обе записи, а в файл сохраняется только вторая запись.
Помогите разобраться пож.
