Post by Tasp on Jul 6, 2019 15:30:11 GMT -5
Just a note.
Editname branch refers to [inputLoop], this doesn't exist in the code supplied.
This throws an error when you click inside the listbox.
Editname branch refers to [inputLoop], this doesn't exist in the code supplied.
This throws an error when you click inside the listbox.
[editName]
addName = 0
print #main.contacts, "selection? selection$"
if selection$ = "" then [inputLoop]
recIndex = 0
for index = 1 to contactCount
if selection$ = name$(index) then recIndex = index
next index
if recIndex = 0 then [inputLoop] 'This should never need to happen
gosub [getContactRecord]
print #main.name, name$
print #main.addr, address$
print #main.city, city$
print #main.state, state$
print #main.zip, zip$
print #main.phone, phone$
print #main.stage, "select ";trim$(stage$)
print #main.memo, "!cls" ;
print #main.memo, memo$ ;
wait
