Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

20 Август 2019, 17:18 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Доступно и просто о работе в офисных пакетах
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Срочно нужна помощь.  (Прочитано 3739 раз)
0 Пользователей и 1 Гость смотрят эту тему.
andreya81
Форумчанин
***
Offline Offline

Сообщений: 104


« Ответ #24209: 7 Февраль 2014, 10:59 »

Помогите разобраться в коде
if get41.text<>"" then
dim svod(0)
select case get2.text
case "Швейный"
redim svod(1 to 24,0 to 3)
svod(1,0)="Упаковка МКР" : svod(2,0)="Завоз логотипов"
svod(3,0)="Завоз кроя" : svod(4,0)="Заготовка оболочки"
svod(5,0)="Сборка корпуса" : svod(6,0)="Заготовка крышки"
svod(7,0)="Заготовка крышки - стачать два шва ЗК" : svod(8,0)="Втачивание РК"
svod(9,0)="Притачивание крышки" : svod(10,0)="Притачивание фартука"
svod(11,0)="Обработка верха" : svod(12,0)="Пошив упаковочного контейнера"
svod(13,0)="Притачивание завязок" : svod(14,0)="Покраска логотипов"
svod(15,0)="Покраска логотипов ТПК" : svod(16,0)="Заготовка РК из полотна"
svod(17,0)="Заготовка РК - стачать два шва РК" : svod(18,0)="Пошив стропного кольца для спаривания строп"
svod(19,0)="Пошив стропного кольца для спаривания строп 0,90" : svod(20,0)="Сборка корпуса МКР со спариванием строп для всех типов МКР"
svod(21,0)="Пошив слингов" : svod(22,0)="Перемещение кроя-слингов" : svod(23,0)="Пошив упаковочного мешка" : svod(24,0)="Упаковка слингов (в мешок)"

dim aJobs(0,1)
aJobs(0,0)=aRes(2,1) : aJobs(0,1)=aRes(3,1)
if intRow>1 then
for i=2 to intRow
tmp=true
for j=0 to ubound(aJobs,1)
if aJobs(j,0)=aRes(2,i) then
aJobs(j,1)=clng(aJobs(j,1))+clng(aRes(3,i))
tmp=false
end if
next j
if tmp then
j=ubound(aJobs,1)+1
redim preserve aJobs(j,1)
aJobs(j,0)=aRes(2,i) : aJobs(j,1)=aRes(3,i)
end if
next i
end if
for i=0 to ubound(aJobs,1)
dbRead("JobNumber", "Jobs", "JobName LIKE '" & aJobs(i,0) & "%'") особенно в этой сроке
tmp=aTmp(0,0)
if instr(tmp,"(1,") then
j=clng(mid(tmp,instr(tmp,"(1,")+3,len(tmp)-instr(tmp,"(1,")-3))
if instr(svod(j,2), tmp) then
j=j
else
svod(j,2)=svod(j,2) & tmp
svod(j,3)=clng(svod(j,3))+1
end if
svod(j,1)=clng(svod(j,1))+clng(aJobs(i,1))
end if
next i
for i=1 to 24
Sheet.getCellByPosition(4,15+i).String=cstr(svod(i,0))
if clng(svod(i,3))>0 then

Sheet.getCellByPosition(8,15+i).String=cstr(cdbl(svod(i,1))/cint(svod(i,3)))
end if

По идее должны находиться данные (сумма) в базе данных по строкам (указаны синим) с учетом поиска (указана красным) но вместо этого пустота. Грешу именно на эту строку (что красным). Помогите очень надо В замешательстве В замешательстве В замешательстве В замешательстве
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!