Попробуйте вызывать форму так

DO Form..... With <Передаваемый параметр>,

а в Init вызываемой формы:

PARAMETERS <Имя_Переменной>

Суть в том, что у Вас во второй форме в качестве источника данных указана Ваша таблица. Когда Вы щелкаете по Гриду, перемещения в таблице не происходит и для редактирования выводится ПЕРВАЯ запись из таблицы "ГОЛИКОВА". Передайте во вторую форму, например, фамилию из Грида и в этой второй форме сделайте поиск по фамилии, чтобы указатель встал на нужную Вам запись. А вообще, лучше иметь в таблице к-л уникальное поле, и передавать его, т.к., например, ГОЛИКОВЫХ может быть несколько. В Вашем случае можно передават и фамилию и имя и отчество и искать по всем трем параметрам.

Да, сейчас посмотрел. У Вас там есть поле Nr, кажется, оно уникальное. Вот его и передайте во вторую форму.

Для добавления нового (пользовательского) свойства в форму нужно: меню ->Form->New Property, дальше придумать ему имя и добавить в форму. Затем, присвоить ему значение принимаемого в Init формы параметра и тогда он (его значение) будет доступно из любого метода формы.
Это, во -первых.
Во-вторых, в Вашей форме используется не Грид (как я подумал при бервом беглом просмотре), а Лист.
Попробуйте вместо него воспользоваться Гридом. Грид отслеживает перемещения по таблице (т.е., когда Вы щелкнете по строчке в Гриде, указатель записи в таблице-источнике данных для этого Грида переместится на соответствующую запись). И проблема решится сама собой, и во вторую форму ничего передавать не нужно, если в качестве источника данных для Боксов используется та же таблица, что и для Грида.

Так, все, блин. Я все бросил и разобрался с Вашим примером. Этот крик о помощи нельзя оставлять без ответа (себя вспоминаю, когда с досовского фокса переходил на VFP)

1. В Клике ЛистБокса вызываем форму
DO FORM form1 NAME lnNextID LINKED WITH VAL(This.value)
(Все как у Вас, только добавлен передаваемый параметр)
2. В Ините вызываемой формы пишем
PARAMETERS n_Nr
LOCATE FOR Nr=n_Nr
И все будет зашибись.

Ну, в смысле, недозашибись. Естественно, вместо LOCATE нужно сделать SEEK проиндексировав базу по полю Nr.

Вот еще прикрепляю дополненный файл

У него там КоммандГроуп и по кнопке Файнд много чего происходит

Георгию18.
Привожу фрагмент текста помощи для метода AddList Item:
Метод AddListItem

Добавляет новый элемент списка в элемент управления ...

Синтаксис

Control.AddListItem(cItem[,nItemID][,nColumn])

cItem -Задает идентификатор, добавляемый в элемент управления
nItemID-Задает целое число, представляющее уник. идентификатор...\
nColumn- Задает столбец...

и т.д.

А у Вас в коде ThisForm.ListSelect.AddListItem(STR(curFind.nr),m.lnNextID,1)
как раз и стоит STR(curFind.nr)- в качестве cItem.

А у Вас есть, вообще, широкоизвестная русифицированная помощь по VFP? Она хоть и для VFP3 (по-моему, хотя это и не важно), но такие простые элементы управления там расписаны достаточно подробно. Могу выслать, если у Вас нет.

Слушайте, ну, мне уже самому интересно. Тем более, что мой архив используется.

Форма forfind -> Command Cgoup: CmgMain -> Кнопка: CmdFind -> ClickEvent (User Procedure). Там код лежит

* ?????? ListSelect
ThisForm.ListSelect.Clear()
ThisForm.LblCount.Caption='0'

* ???????? ???????? ??????
LOCAL lcFilter, lcFirst
lcFilter=''
IF ThisForm.ChkFirst.Value=.T.
lcFirst=''
ELSE
lcFirst='%'
ENDIF

* ??????? ????????
IF EMPTY(ThisForm.TxtNickName.Value)=.F.
IF ThisForm.ChkUpper.Value=.F.
lcFilter=m.lcFilter+" AND UPPER(Name) LIKE '"+m.lcFirst+UPPER(ThisForm.TxtNickName.Value)+"%'"
ELSE
lcFilter=m.lcFilter+" AND Name LIKE '"+m.lcFirst+ThisForm.TxtNickName.Value+"%'"
ENDIF
ENDIF
* ?????? ????????
IF EMPTY(ThisForm.TxtFullName.Value)=.F.
IF ThisForm.ChkUpper.Value=.F.
lcFilter=m.lcFilter+" AND UPPER(Nam2) LIKE '"+m.lcFirst+UPPER(ThisForm.TxtFullName.Value)+"%'"
ELSE
lcFilter=m.lcFilter+" AND Nam2 LIKE '"+m.lcFirst+ThisForm.TxtFullName.Value+"%'"
ENDIF
ENDIF

* ?? ???????? ????? ?????? ?????????????? ???????? ?????? ?????????? ??????? lcFilter

* ??????? ?????? ??????? ' AND '
lcFilter=SubStr(m.lcFilter,6)

IF EMPTY(m.lcFilter)=.T.
MessageBox('??????? ??? ?????? ?? ?????? ?????',48,ThisForm.Caption)
RETURN
ENDIF

* ?????????? ?????
SELECT * FROM Reestr INTO CURSOR curFind NOFILTER WHERE &lcFilter

IF Reccount('curFind')=0
USE IN curFind
MessageBox('????????? ???????? ?? ????????????? ?? ???? ????????. ???????? ??????? ??????',48,ThisForm.Caption)
RETURN
ENDIF

* ?????????? ?????????? ListSelect
LOCAL lnNextID
lnNextID=0
select curFind
SCAN
lnNextID=m.lnNextID+1
* ????????? ???????? ????? ????????? ?????? ?????????? ??????
* ??????? ?????????? ???????????
ThisForm.ListSelect.AddListItem(STR(curFind.nr),m.lnNextID,1)
ThisForm.ListSelect.AddListItem(STR(curFind.nr),m.lnNextID,2)
ThisForm.ListSelect.AddListItem(curFind.Name,m.lnNextID,3)
ThisForm.ListSelect.AddListItem(curFind.Nam3,m.lnNextID,4)
ThisForm.ListSelect.AddListItem(curFind.N_p,m.lnNextID,5)
ThisForm.ListSelect.AddListItem(curFind.ul,m.lnNextID,6)
ThisForm.ListSelect.AddListItem(STR(curFind.dom),m.lnNextID,7)
ENDSCAN

ThisForm.LblCount.Caption=LTRIM(STR(m.lnNextID))
use in curFind.

А вот вопрос: как на форуме вставляют в сообщения красивые фрагменты кода?