Вывод строк в таблицу

@Storkfork · Регистрация: 11.11.2016

Author24 — интернет-сервис помощи студентам

Есть вывод данных в таблицу. Количество строк меняется - это j. В таблицу программа вносит необходимое количество строк, но только все они одинаковые.
Проблема в том, что программа выводит нужное количество строк, но одинаковых. Как сделать так, чтоб выводились разные строки, а не первая из таблицы несколько раз?

Visual Basic

For i = 1 To j 
With objDoc 
.Tables(2).Cell(i, 2).Range.Text = indexDoc  
.Tables(2).Cell(i, 3).Range.Text = Format(dateDoc, "dd.mm.yyyy") 
.Tables(2).Cell(i, 4).Range.Text = headDoc 
.Tables(2).Cell(i, 5).Range.Text = numberList 
End With 
Next i

SoftIce · 20.04.2017, 11:58

У Вас в цикле не меняются indexDoc , dateDoc, headDoc и numberList, поэтому и строки одинаковые. А как Вы хотели?

@Storkfork · 20.04.2017, 12:01 **[ТС]**

SoftIce, эти значения берутся из формы. Как сделать так, чтоб они менялись?

SoftIce · 20.04.2017, 12:02

Сообщение от Storkfork

эти значения берутся из формы

А в форме что? Таблица какая-то?

@Storkfork · 20.04.2017, 13:06 **[ТС]**

SoftIce, вот форма

SoftIce · 20.04.2017, 13:45

Понятно. Приложите файл.

@Storkfork · 20.04.2017, 13:53 **[ТС]**

SoftIce, rezn.rar
- после нажатия "Редагувати", а потом "Далі", список из формы должен по нажатию кнопки "Печать" заноситься в документ.

SoftIce · 20.04.2017, 15:48

У Вас там база данных Access. Я не смогу помочь, к сожалению

.

@Storkfork · 20.04.2017, 15:59 **[ТС]**

SoftIce, может сможете подсказать, какой алгоритм использовать?

SoftIce · 20.04.2017, 16:09

У меня Access даже не установлен.

Подождите, может попозже специалисты подтянутся

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	20.04.2017, 16:09	10
	У меня Access даже не установлен. Подождите, может попозже специалисты подтянутся 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	20.04.2017, 11:58	2
	У Вас в цикле не меняются indexDoc , dateDoc, headDoc и numberList, поэтому и строки одинаковые. А как Вы хотели? 0

@Storkfork 0 / 0 / 0 Регистрация: 11.11.2016 Сообщений: 37
	20.04.2017, 12:01 [ТС]	3
	SoftIce, эти значения берутся из формы. Как сделать так, чтоб они менялись? 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	20.04.2017, 12:02	4
	Сообщение от Storkfork эти значения берутся из формы А в форме что? Таблица какая-то? 0

@Storkfork 0 / 0 / 0 Регистрация: 11.11.2016 Сообщений: 37
	20.04.2017, 13:06 [ТС]	5
	SoftIce, вот форма Миниатюры 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	20.04.2017, 13:45	6
	Понятно. Приложите файл. 0

@Storkfork 0 / 0 / 0 Регистрация: 11.11.2016 Сообщений: 37
	20.04.2017, 13:53 [ТС]	7
	SoftIce, rezn.rar - после нажатия "Редагувати", а потом "Далі", список из формы должен по нажатию кнопки "Печать" заноситься в документ. 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	20.04.2017, 15:48	8
	У Вас там база данных Access. Я не смогу помочь, к сожалению . 0

@Storkfork 0 / 0 / 0 Регистрация: 11.11.2016 Сообщений: 37
	20.04.2017, 15:59 [ТС]	9
	SoftIce, может сможете подсказать, какой алгоритм использовать? 0