Добрый день ! (вернее ночь)
Опять возникла проблема (для Вас проблемка) , есть табличка LV (medview) где несколько записей данных, при выводе в табл. word данные вставляюся в нее но значения берутся только из первой записи , как правильно вывести чтобы были все значения


*** Код вывода в word ***

LOCAL loTable
loTable = m.loDoc.Tables(1)

CREATE Cursor Med (medId D, medName C(25),medD D,medS N(3),medV C(25))
INSERT INTO med (medId, medName, medD,medS,medtV) VALUES (medview.date_vac, medview.name_vac,medview.date_izg,medview.n_seriy,medview.v_vr)

LOCAL lnWordRowNum
select medview
SCAN
IF m.loTable.Rows.Count < m.lnWordRowNum
m.loTable.Rows.Add()
ENDIF

m.loTable.Cell(m.lnWordRowNum,1).Range.Text = Test.TestId
m.loTable.Cell(m.lnWordRowNum,2).Range.Text = Test.TestName
m.loTable.Cell(m.lnWordRowNum,3).Range.Text = Test.TestD
m.loTable.Cell(m.lnWordRowNum,4).Range.Text = Test.TestS
m.loTable.Cell(m.lnWordRowNum,5).Range.Text = Test.TestV

lnWordRowNum = m.lnWordRowNum + 1
ENDSCAN

пардон не доглядел :
m.loTable.Cell(m.lnWordRowNum,1).Range.Text = Med.medId
m.loTable.Cell(m.lnWordRowNum,2).Range.Text = Med.medName
m.loTable.Cell(m.lnWordRowNum,3).Range.Text = Med.medD
m.loTable.Cell(m.lnWordRowNum,4).Range.Text = Med.medS
m.loTable.Cell(m.lnWordRowNum,5).Range.Text = Med.medV

в select так понимаю ставится созданный cursor (на базе таблицы LV medview) , то биш select med , данные должны выводится в word из этой таблицы

select med
SCAN
...
m.loTable.Cell(m.lnWordRowNum,1).Range.Text = Med.medId
...
ENDSCAN

но в табл. выводится только первое значение из курсора, Владимир извините за тупость но если можно более подробно

Спасибо всем. Вопрос снят, дошло.

Вопросы никогда не кончаются, - при выводе в таблицу, попадаются пустые значения дат , сразу выдается ошибка - "OLE error code 0x80070057:Параметр задан не верно" , я так понимаю что NULL разрешает пустые значения - как с этим бороться

CREATE Cursor Med (MedId D NULL, MedName C(25)NULL,MedD D NULL,MedS N(3)NULL,MedV C(25)NULL)

Действительно , не зря . Спасибо.