aalleexxaa
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Yuk
ты гений, ну наконец, я уже три дня сижу
Добавлено:
Подскажи мне еще один вопросец пожалуйста 
нужно при загрузке на лист вместо цифр поставить соответствующие названия из другой таблицы
чтобы вывести на раб лист данные мы пишем:
Код:| Cells(k, 7).Value = tovar.Fields(7) |
а чтобы заменить на соответствующие данные из другой таблицы:
Код: 'Do While pol.EOF = False
' If pol.Fields(0).Value = tovar.Fields("код_пола").Value Then
' Cells(k, 7).Value = pol.Fields(1).Value
' End If
' pol.MoveNext
' Loop |
проблема в том, что это нужно сделать в цикле, так как там не одна запись
тоесть это должно выглядеть так:
Код: Dim k As Integer
k = 2
With tovar
tovar.MoveFirst
Do While tovar.EOF = False
Cells(k, 1).Value = tovar.Fields(0)
Cells(k, 2).Value = tovar.Fields(1)
Cells(k, 3).Value = tovar.Fields(3)
Cells(k, 4).Value = tovar.Fields(2)
Cells(k, 5).Value = tovar.Fields(5)
Cells(k, 6).Value = tovar.Fields(6)
'Cells(k, 7).Value = tovar.Fields(7)
Do While pol.EOF = False
If pol.Fields(0).Value = tovar.Fields("код_пола").Value Then
Cells(k, 7).Value = pol.Fields(1).Value
End If
pol.MoveNext
Loop
Cells(k, 8).Value = tovar.Fields(8)
Cells(k, 9).Value = tovar.Fields(9)
Cells(k, 10).Value = tovar.Fields(11)
Cells(k, 11).Value = tovar.Fields(10)
Cells(k, 12).Value = tovar.Fields(12)
tovar.MoveNext
k = k + 1
Loop
End With |
но оно не переходит потом к следующей записи
если нужно база лежит тут |
