ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / датагрид с чекбоксами и второй датагрид
9 сообщений из 9, страница 1 из 1
датагрид с чекбоксами и второй датагрид
    #33444405
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
conn.Execute "INSERT INTO TempDB2 SELECT N_DOC, KPP, IN_POK, DATE, K_PRED, DATE_O1, N_SHF, ADR1, N_POK, KVO1, PNDS1, PNDS2, PNDS3,PNDS4, PNDS5, PNDS6, CEN1, CEN2, CEN3, CEN4, CEN5, CEN6, REG," _
& "IIf(PNDS1=0, (KOL1*CEN1), 0)+IIf(PNDS2=0, (KOL2*CEN2), 0)+IIf(PNDS3=0, (KOL3*CEN3), 0)+IIf(PNDS4=0, (KOL4*CEN4), 0)+IIf(PNDS5=0, (KOL5*CEN5) ,0)+IIf(PNDS6=0, (KOL6*CEN6) ,0)+IIf(NDSTR=0, (PTR), 0) AS SUMNDS0," _
& "IIf(PNDS1=10, (PNDS1*KOL1*CEN1/100), 0)+IIf(PNDS2=10, (PNDS2*KOL2*CEN2/100), 0)+IIf(PNDS3=10, (PNDS3*KOL3*CEN3/100), 0)+IIf(PNDS4=10, (PNDS4*KOL4*CEN4/100), 0)+IIf(PNDS5=10, (PNDS5*KOL5*CEN5/100) ,0)+IIf(PNDS6=10, (PNDS6*KOL6*CEN6/100) ,0)+IIf(NDSTR=10, (PTR*NDSTR/110), 0) AS SUMNDS10," _
& "IIf(PNDS1=18, (PNDS1*KOL1*CEN1/100), 0)+IIf(PNDS2=18, (PNDS2*KOL2*CEN2/100), 0)+IIf(PNDS3=18, (PNDS3*KOL3*CEN3/100), 0)+IIf(PNDS4=18, (PNDS4*KOL4*CEN4/100), 0)+IIf(PNDS5=18, (PNDS5*KOL5*CEN5/100) ,0)+IIf(PNDS6=18, (PNDS6*KOL6*CEN6/100) ,0)+IIf(NDSTR=18, (PTR*NDSTR/118), 0) AS SUMNDS18," _
& "IIf(PNDS1=20, (PNDS1*KOL1*CEN1/100), 0)+IIf(PNDS2=20, (PNDS2*KOL2*CEN2/100), 0)+IIf(PNDS3=20, (PNDS3*KOL3*CEN3/100), 0)+IIf(PNDS4=20, (PNDS4*KOL4*CEN4/100), 0)+IIf(PNDS5=20, (PNDS5*KOL5*CEN5/100) ,0)+IIf(PNDS6=20, (PNDS6*KOL6*CEN6/100) ,0)+IIf(NDSTR=20, (PTR*NDSTR/120), 0) AS SUMNDS20," _
& "IIf(PNDS1=10, ((KOL1*CEN1)-(PNDS1*KOL1*CEN1/100)), 0)+IIf(PNDS2=10, ((KOL2*CEN2)-(PNDS2*KOL2*CEN2/100)), 0)+IIf(PNDS3=10, ((KOL3*CEN2)-(PNDS3*KOL3*CEN3/100)), 0)+IIf(PNDS4=10, ((KOL4*CEN4)-(PNDS4*KOL4*CEN4/100)), 0)+IIf(PNDS5=10, ((KOL5*CEN5)-(PNDS5*KOL5*CEN5/100)) ,0)+IIf(PNDS6=10, ((KOL6*CEN6)-(PNDS6*KOL6*CEN6/100)) ,0)+IIf(NDSTR=10, (PTR*NDSTR/110*100), 0) AS BEZNDS10," _
& "IIf(PNDS1=18, ((KOL1*CEN1)-(PNDS1*KOL1*CEN1/100)), 0)+IIf(PNDS2=18, ((KOL2*CEN2)-(PNDS2*KOL2*CEN2/100)), 0)+IIf(PNDS3=18, ((KOL3*CEN2)-(PNDS3*KOL3*CEN3/100)), 0)+IIf(PNDS4=18, ((KOL4*CEN4)-(PNDS4*KOL4*CEN4/100)), 0)+IIf(PNDS5=18, ((KOL5*CEN5)-(PNDS5*KOL5*CEN5/100)) ,0)+IIf(PNDS6=18, ((KOL6*CEN6)-(PNDS6*KOL6*CEN6/100)) ,0)+IIf(NDSTR=18, (PTR*NDSTR/118*100), 0) AS BEZNDS18," _
& "IIf(PNDS1=20, ((KOL1*CEN1)-(PNDS1*KOL1*CEN1/100)), 0)+IIf(PNDS2=20, ((KOL2*CEN2)-(PNDS2*KOL2*CEN2/100)), 0)+IIf(PNDS3=20, ((KOL3*CEN2)-(PNDS3*KOL3*CEN3/100)), 0)+IIf(PNDS4=20, ((KOL4*CEN4)-(PNDS4*KOL4*CEN4/100)), 0)+IIf(PNDS5=20, ((KOL5*CEN5)-(PNDS5*KOL5*CEN5/100)) ,0)+IIf(PNDS6=20, ((KOL6*CEN6)-(PNDS6*KOL6*CEN6/100)) ,0)+IIf(NDSTR=20, (PTR*NDSTR/120*100), 0) AS BEZNDS20," _
& "(SUMNDS0+SUMNDS10+SUMNDS18+SUMNDS20+BEZNDS10+BEZNDS18+BEZNDS20) AS SUMOPLSNDS FROM DZ WHERE (tmc = '19' OR tmc = '25') AND ((REG < 100) Or (REG Between 200 And 206)) AND ((date_o1 >= # " & date_us1 & " #) AND (date_o1 <= # " & date_us2 & " #))"
смысл запроса в кратце:
первое поле умножаем на второе поле, получаем нужное нам поле. запрос работает, но есть небольшая ошибка. Если в одном из полей есть дробное значение, то после вычислений получается 0. Как думаете почему так получается?
...
Рейтинг: 0 / 0
19.12.2005, 15:10:30
| Ответить | Цитировать | Написать  
датагрид с чекбоксами и второй датагрид
    #33444407
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
уважаемые модераторы, пожалуйста исправьте название моей темы на "SQL запрос"
...
Рейтинг: 0 / 0
19.12.2005, 15:12:03
| Ответить | Цитировать | Написать  
датагрид с чекбоксами и второй датагрид
    #33445611
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Может тип данные поля куда добавлешь целое число?

Select смотрел? Дробные значения нормально отображает или нули?

С форматом не пробоавал?

Код: plaintext
1.
SUMNDS10: Format(IIf([PNDS6]= 10 ;([PNDS6]*[KOLO16]*[CEN6]/ 100 ); 0 )+
IIf([NDSTR]= 10 ;([PTR1]*[NDSTR]/ 110 ); 0 );"0,00")
...
Рейтинг: 0 / 0
20.12.2005, 09:24:08
| Ответить | Цитировать | Написать  
датагрид с чекбоксами и второй датагрид
    #33445630
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
формирование строки запросы видно
а саму строку запроса можно посмотреть и желательно структуру базы
...
Рейтинг: 0 / 0
20.12.2005, 09:35:48
| Ответить | Цитировать | Написать  
датагрид с чекбоксами и второй датагрид
    #33447307
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
/100.00
...
Рейтинг: 0 / 0
20.12.2005, 17:13:38
| Ответить | Цитировать | Написать  
датагрид с чекбоксами и второй датагрид
    #33447703
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
Konst_One
не помогло :(
...
Рейтинг: 0 / 0
20.12.2005, 19:52:49
| Ответить | Цитировать | Написать  
датагрид с чекбоксами и второй датагрид
    #33447788
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
Пользователь2Может тип данные поля куда добавлешь целое число?база акцессовская, тип данных поля "Числовой", размер поля "Двойное с плавающей точкой"
Пользователь2Select смотрел? Дробные значения нормально отображает или нули?
все работает нормально, расчет НДС из 2х целых, например 18% от (24*5)=21,6 записывается как есть, 21,6.
если же 18% от (24,5*5)=22,05 записывается 0
...
Рейтинг: 0 / 0
20.12.2005, 20:47:22
| Ответить | Цитировать | Написать  
датагрид с чекбоксами и второй датагрид
    #33448191
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
shady
а если запрос немного подредактировать, поможет

Код: plaintext
IIf(PNDS1= 18 , ( 18 *KOL1*CEN1/ 100 ),  0 )
и т.д
...
Рейтинг: 0 / 0
21.12.2005, 09:18:11
| Ответить | Цитировать | Написать  
датагрид с чекбоксами и второй датагрид
    #33448220
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
прошу не пинать ногами, но это видимо другая ошибка, дело в том что я думал что из-за того что дробные значения присутствуют в вычислениях, оказалось что это не так. И из-за этого возможно ввел в заблуждение форумчан. Приношу извинения, возможно теперь поможете решить мою проблему, т.к. ошибка 100% в этом.
дело в том что у меня для полного вычисления требуется 5 раз провести вычисления над таблицей и запросов у меня таких 5. Но вот в чем оказывается проблема... когда остальные 4 запроса я закоментарил... первый запрос работает БЕЗ! единой ошибки, результаты вычисления абсолютно правильны!
Как только делаю например 2 запроса, то считается все неправильно!! в чем может быть дело??
вот мой код полный вариант
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
Call conect

conn.Execute "DELETE FROM TempDB2"
conn.Execute "DROP TABLE TempDB2"


conn.Execute "SELECT N_DOC, KPP, IN_POK, DATE, K_PRED, DOC_O1, DATE_O1, N_SHF, TMC1, ADR1, N_POK, KOLO11, KOLO12, KOLO13, KOLO14, KOLO15, KOLO16, KOLO21, KOLO22, KOLO23, KOLO24, KOLO25, KOLO26, KOLO31, KOLO32, KOLO33, KOLO34, KOLO35, KOLO36, KOLO41, KOLO42, KOLO43, KOLO44, KOLO45, KOLO46, SUMO1, SUMO2, SUMO3, SUMO4, KVO1, PNDS1, PNDS2, PNDS3,PNDS4, PNDS5, PNDS6, CEN1, CEN2, CEN3, CEN4, CEN5, CEN6, REG," _
& "IIf(PNDS1=0, (KOLO11*CEN1), 0)+IIf(PNDS2=0, (KOLO12*CEN2), 0)+IIf(PNDS3=0, (KOLO13*CEN3), 0)+IIf(PNDS4=0, (KOLO14*CEN4), 0)+IIf(PNDS5=0, (KOLO15*CEN5) ,0)+IIf(PNDS6=0, (KOLO16*CEN6) ,0)+IIf(NDSTR=0, (PTR1), 0) AS SUMNDS0," _
& "IIf(PNDS1=10, (PNDS1*KOLO11*CEN1/100), 0)+IIf(PNDS2=10, (PNDS2*KOLO12*CEN2/100), 0)+IIf(PNDS3=10, (PNDS3*KOLO13*CEN3/100), 0)+IIf(PNDS4=10, (PNDS4*KOLO14*CEN4/100), 0)+IIf(PNDS5=10, (PNDS5*KOLO15*CEN5/100) ,0)+IIf(PNDS6=10, (PNDS6*KOLO16*CEN6/100) ,0)+IIf(NDSTR=10, (PTR1*NDSTR/110), 0) AS SUMNDS10," _
& "IIf(PNDS1=18, (PNDS1*KOLO11*CEN1/100), 0)+IIf(PNDS2=18, (PNDS2*KOLO12*CEN2/100), 0)+IIf(PNDS3=18, (PNDS3*KOLO13*CEN3/100), 0)+IIf(PNDS4=18, (PNDS4*KOLO14*CEN4/100), 0)+IIf(PNDS5=18, (PNDS5*KOLO15*CEN5/100) ,0)+IIf(PNDS6=18, (PNDS6*KOLO16*CEN6/100) ,0)+IIf(NDSTR=18, (PTR1*NDSTR/118), 0) AS SUMNDS18," _
& "IIf(PNDS1=20, (PNDS1*KOLO11*CEN1/100), 0)+IIf(PNDS2=20, (PNDS2*KOLO12*CEN2/100), 0)+IIf(PNDS3=20, (PNDS3*KOLO13*CEN3/100), 0)+IIf(PNDS4=20, (PNDS4*KOLO14*CEN4/100), 0)+IIf(PNDS5=20, (PNDS5*KOLO15*CEN5/100) ,0)+IIf(PNDS6=20, (PNDS6*KOLO16*CEN6/100) ,0)+IIf(NDSTR=20, (PTR1*NDSTR/120), 0) AS SUMNDS20," _
& "IIf(PNDS1=10, ((KOLO11*CEN1)-(PNDS1*KOLO11*CEN1/100)), 0)+IIf(PNDS2=10, ((KOLO12*CEN2)-(PNDS2*KOLO12*CEN2/100)), 0)+IIf(PNDS3=10, ((KOLO13*CEN2)-(PNDS3*KOLO13*CEN3/100)), 0)+IIf(PNDS4=10, ((KOLO14*CEN4)-(PNDS4*KOLO14*CEN4/100)), 0)+IIf(PNDS5=10, ((KOLO15*CEN5)-(PNDS5*KOLO15*CEN5/100)) ,0)+IIf(PNDS6=10, ((KOLO16*CEN6)-(PNDS6*KOLO16*CEN6/100)) ,0)+IIf(NDSTR=10, (PTR1*NDSTR/110*100), 0) AS BEZNDS10," _
& "IIf(PNDS1=18, ((KOLO11*CEN1)-(PNDS1*KOLO11*CEN1/100)), 0)+IIf(PNDS2=18, ((KOLO12*CEN2)-(PNDS2*KOLO12*CEN2/100)), 0)+IIf(PNDS3=18, ((KOLO13*CEN2)-(PNDS3*KOLO13*CEN3/100)), 0)+IIf(PNDS4=18, ((KOLO14*CEN4)-(PNDS4*KOLO14*CEN4/100)), 0)+IIf(PNDS5=18, ((KOLO15*CEN5)-(PNDS5*KOLO15*CEN5/100)) ,0)+IIf(PNDS6=18, ((KOLO16*CEN6)-(PNDS6*KOLO16*CEN6/100)) ,0)+IIf(NDSTR=18, (PTR1*NDSTR/118*100), 0) AS BEZNDS18," _
& "IIf(PNDS1=20, ((KOLO11*CEN1)-(PNDS1*KOLO11*CEN1/100)), 0)+IIf(PNDS2=20, ((KOLO12*CEN2)-(PNDS2*KOLO12*CEN2/100)), 0)+IIf(PNDS3=20, ((KOLO13*CEN2)-(PNDS3*KOLO13*CEN3/100)), 0)+IIf(PNDS4=20, ((KOLO14*CEN4)-(PNDS4*KOLO14*CEN4/100)), 0)+IIf(PNDS5=20, ((KOLO15*CEN5)-(PNDS5*KOLO15*CEN5/100)) ,0)+IIf(PNDS6=20, ((KOLO16*CEN6)-(PNDS6*KOLO16*CEN6/100)) ,0)+IIf(NDSTR=20, (PTR1*NDSTR/120*100), 0) AS BEZNDS20," _
& "(SUMNDS10+SUMNDS0+SUMNDS18+SUMNDS20+BEZNDS10+BEZNDS18+BEZNDS20) AS SUMOPLSNDS INTO TempDB2 FROM DZ WHERE (tmc1 = '50' OR tmc1 = '51' OR tmc1 = '60' OR tmc1 = '61' OR tmc1 = '62') AND (TMC <> '19') AND (TMC <> '25') AND ((date_o1 >= # " & date_us1 & " #) AND (date_o1 <= # " & date_us2 & " #))"


'conn.Execute "INSERT INTO TempDB2 SELECT N_DOC, KPP, IN_POK, DATE, K_PRED, DATE_O1, N_SHF, ADR1, N_POK, KVO1, PNDS1, PNDS2, PNDS3,PNDS4, PNDS5, PNDS6, CEN1, CEN2, CEN3, CEN4, CEN5, CEN6, REG," _
'& "IIf(PNDS1=0, (KOL1*CEN1), 0)+IIf(PNDS2=0, (KOL2*CEN2), 0)+IIf(PNDS3=0, (KOL3*CEN3), 0)+IIf(PNDS4=0, (KOL4*CEN4), 0)+IIf(PNDS5=0, (KOL5*CEN5) ,0)+IIf(PNDS6=0, (KOL6*CEN6) ,0)+IIf(NDSTR=0, (PTR), 0) AS SUMNDS0," _
'& "IIf(PNDS1=10, (PNDS1*KOL1*CEN1/100), 0)+IIf(PNDS2=10, (PNDS2*KOL2*CEN2/100), 0)+IIf(PNDS3=10, (PNDS3*KOL3*CEN3/100), 0)+IIf(PNDS4=10, (PNDS4*KOL4*CEN4/100), 0)+IIf(PNDS5=10, (PNDS5*KOL5*CEN5/100) ,0)+IIf(PNDS6=10, (PNDS6*KOL6*CEN6/100) ,0)+IIf(NDSTR=10, (PTR*NDSTR/110), 0) AS SUMNDS10," _
'& "IIf(PNDS1=18, (PNDS1*KOL1*CEN1/100), 0)+IIf(PNDS2=18, (PNDS2*KOL2*CEN2/100), 0)+IIf(PNDS3=18, (PNDS3*KOL3*CEN3/100), 0)+IIf(PNDS4=18, (PNDS4*KOL4*CEN4/100), 0)+IIf(PNDS5=18, (PNDS5*KOL5*CEN5/100) ,0)+IIf(PNDS6=18, (PNDS6*KOL6*CEN6/100) ,0)+IIf(NDSTR=18, (PTR*NDSTR/118), 0) AS SUMNDS18," _
'& "IIf(PNDS1=20, (PNDS1*KOL1*CEN1/100), 0)+IIf(PNDS2=20, (PNDS2*KOL2*CEN2/100), 0)+IIf(PNDS3=20, (PNDS3*KOL3*CEN3/100), 0)+IIf(PNDS4=20, (PNDS4*KOL4*CEN4/100), 0)+IIf(PNDS5=20, (PNDS5*KOL5*CEN5/100) ,0)+IIf(PNDS6=20, (PNDS6*KOL6*CEN6/100) ,0)+IIf(NDSTR=20, (PTR*NDSTR/120), 0) AS SUMNDS20," _
'& "IIf(PNDS1=10, ((KOL1*CEN1)-(PNDS1*KOL1*CEN1/100)), 0)+IIf(PNDS2=10, ((KOL2*CEN2)-(PNDS2*KOL2*CEN2/100)), 0)+IIf(PNDS3=10, ((KOL3*CEN2)-(PNDS3*KOL3*CEN3/100)), 0)+IIf(PNDS4=10, ((KOL4*CEN4)-(PNDS4*KOL4*CEN4/100)), 0)+IIf(PNDS5=10, ((KOL5*CEN5)-(PNDS5*KOL5*CEN5/100)) ,0)+IIf(PNDS6=10, ((KOL6*CEN6)-(PNDS6*KOL6*CEN6/100)) ,0)+IIf(NDSTR=10, (PTR*NDSTR/110*100), 0) AS BEZNDS10," _
'& "IIf(PNDS1=18, ((KOL1*CEN1)-(PNDS1*KOL1*CEN1/100)), 0)+IIf(PNDS2=18, ((KOL2*CEN2)-(PNDS2*KOL2*CEN2/100)), 0)+IIf(PNDS3=18, ((KOL3*CEN2)-(PNDS3*KOL3*CEN3/100)), 0)+IIf(PNDS4=18, ((KOL4*CEN4)-(PNDS4*KOL4*CEN4/100)), 0)+IIf(PNDS5=18, ((KOL5*CEN5)-(PNDS5*KOL5*CEN5/100)) ,0)+IIf(PNDS6=18, ((KOL6*CEN6)-(PNDS6*KOL6*CEN6/100)) ,0)+IIf(NDSTR=18, (PTR*NDSTR/118*100), 0) AS BEZNDS18," _
'& "IIf(PNDS1=20, ((KOL1*CEN1)-(PNDS1*KOL1*CEN1/100)), 0)+IIf(PNDS2=20, ((KOL2*CEN2)-(PNDS2*KOL2*CEN2/100)), 0)+IIf(PNDS3=20, ((KOL3*CEN2)-(PNDS3*KOL3*CEN3/100)), 0)+IIf(PNDS4=20, ((KOL4*CEN4)-(PNDS4*KOL4*CEN4/100)), 0)+IIf(PNDS5=20, ((KOL5*CEN5)-(PNDS5*KOL5*CEN5/100)) ,0)+IIf(PNDS6=20, ((KOL6*CEN6)-(PNDS6*KOL6*CEN6/100)) ,0)+IIf(NDSTR=20, (PTR*NDSTR/120*100), 0) AS BEZNDS20," _
'& "(SUMNDS0+SUMNDS10+SUMNDS18+SUMNDS20+BEZNDS10+BEZNDS18+BEZNDS20) AS SUMOPLSNDS FROM DZ WHERE (tmc = '19' OR tmc = '25') AND ((REG < 100) Or (REG Between 200 And 206)) AND ((date_o1 >= # " & date_us1 & " #) AND (date_o1 <= # " & date_us2 & " #))"

'ïî âòîðîé îïëàòå
'conn.Execute "INSERT INTO TempDB2 SELECT N_DOC, KPP, IN_POK, DATE, K_PRED, DOC_O1, N_SHF, TMC1, ADR1, N_POK, KOLO11, KOLO12, KOLO13, KOLO14, KOLO15, KOLO16, SUMO1, SUMO2, SUMO3, SUMO4, KVO1, PNDS1, PNDS2, PNDS3,PNDS4, PNDS5, PNDS6, CEN1, CEN2, CEN3, CEN4, CEN5, CEN6, REG," _
'& "IIf(PNDS1=0, (KOLO21*CEN2), 0)+IIf(PNDS2=0, (KOLO22*CEN2), 0)+IIf(PNDS3=0, (KOLO23*CEN3), 0)+IIf(PNDS4=0, (KOLO24*CEN4), 0)+IIf(PNDS5=0, (KOLO25*CEN5), 0)+IIf(PNDS6=0, (KOLO26*CEN6), 0)+IIf(NDSTR=0, (PTR2), 0) AS SUMNDS0, (Date_o2) as Date_o1," _
'& "IIf(PNDS1=10, (PNDS1*KOLO21*CEN1/100), 0)+IIf(PNDS2=10, (PNDS2*KOLO22*CEN2/100), 0)+IIf(PNDS3=10, (PNDS3*KOLO23*CEN3/100), 0)+IIf(PNDS4=10, (PNDS4*KOLO24*CEN4/100), 0)+IIf(PNDS5=10, (PNDS5*KOLO25*CEN5/100) ,0)+IIf(PNDS6=10, (PNDS6*KOLO26*CEN6/100) ,0)+IIf(NDSTR=10, (PTR2*NDSTR/110), 0) AS SUMNDS10," _
'& "IIf(PNDS1=18, (PNDS1*KOLO21*CEN1/100), 0)+IIf(PNDS2=18, (PNDS2*KOLO22*CEN2/100), 0)+IIf(PNDS3=18, (PNDS3*KOLO23*CEN3/100), 0)+IIf(PNDS4=18, (PNDS4*KOLO24*CEN4/100), 0)+IIf(PNDS5=18, (PNDS5*KOLO25*CEN5/100) ,0)+IIf(PNDS6=18, (PNDS6*KOLO26*CEN6/100) ,0)+IIf(NDSTR=18, (PTR2*NDSTR/118), 0) AS SUMNDS18," _
'& "IIf(PNDS1=20, (PNDS1*KOLO21*CEN1/100), 0)+IIf(PNDS2=20, (PNDS2*KOLO22*CEN2/100), 0)+IIf(PNDS3=20, (PNDS3*KOLO23*CEN3/100), 0)+IIf(PNDS4=20, (PNDS4*KOLO24*CEN4/100), 0)+IIf(PNDS5=20, (PNDS5*KOLO25*CEN5/100) ,0)+IIf(PNDS6=20, (PNDS6*KOLO26*CEN6/100) ,0)+IIf(NDSTR=20, (PTR2*NDSTR/120), 0) AS SUMNDS20," _
'& "IIf(PNDS1=10, ((KOLO21*CEN1)-(PNDS1*KOLO21*CEN1/100)), 0)+IIf(PNDS2=10, ((KOLO22*CEN2)-(PNDS2*KOLO22*CEN2/100)), 0)+IIf(PNDS3=10, ((KOLO23*CEN2)-(PNDS3*KOLO23*CEN3/100)), 0)+IIf(PNDS4=10, ((KOLO24*CEN4)-(PNDS4*KOLO24*CEN4/100)), 0)+IIf(PNDS5=10, ((KOLO25*CEN5)-(PNDS5*KOLO25*CEN5/100)) ,0)+IIf(PNDS6=10, ((KOLO26*CEN6)-(PNDS6*KOLO26*CEN6/100)) ,0)+IIf(NDSTR=10, (PTR2*NDSTR/110*100), 0) AS BEZNDS10," _
'& "IIf(PNDS1=18, ((KOLO21*CEN1)-(PNDS1*KOLO21*CEN1/100)), 0)+IIf(PNDS2=18, ((KOLO22*CEN2)-(PNDS2*KOLO22*CEN2/100)), 0)+IIf(PNDS3=18, ((KOLO23*CEN2)-(PNDS3*KOLO23*CEN3/100)), 0)+IIf(PNDS4=18, ((KOLO24*CEN4)-(PNDS4*KOLO24*CEN4/100)), 0)+IIf(PNDS5=18, ((KOLO25*CEN5)-(PNDS5*KOLO25*CEN5/100)) ,0)+IIf(PNDS6=18, ((KOLO26*CEN6)-(PNDS6*KOLO26*CEN6/100)) ,0)+IIf(NDSTR=18, (PTR2*NDSTR/118*100), 0) AS BEZNDS18," _
'& "IIf(PNDS1=20, ((KOLO21*CEN1)-(PNDS1*KOLO21*CEN1/100)), 0)+IIf(PNDS2=20, ((KOLO22*CEN2)-(PNDS2*KOLO22*CEN2/100)), 0)+IIf(PNDS3=20, ((KOLO23*CEN2)-(PNDS3*KOLO23*CEN3/100)), 0)+IIf(PNDS4=20, ((KOLO24*CEN4)-(PNDS4*KOLO24*CEN4/100)), 0)+IIf(PNDS5=20, ((KOLO25*CEN5)-(PNDS5*KOLO25*CEN5/100)) ,0)+IIf(PNDS6=20, ((KOLO26*CEN6)-(PNDS6*KOLO26*CEN6/100)) ,0)+IIf(NDSTR=20, (PTR2*NDSTR/120*100), 0) AS BEZNDS20," _
'& "(SUMNDS10+SUMNDS0+SUMNDS18+SUMNDS20+BEZNDS10+BEZNDS18+BEZNDS20) AS SUMOPLSNDS FROM DZ WHERE (tmc2 = '50' OR tmc2 = '51' OR tmc2 = '60' OR tmc2 = '61' OR tmc2 = '62') AND (TMC <> '19') AND (TMC <> '25') AND ((date_o2 >= # " & date_us1 & " #) AND (date_o2 <= # " & date_us2 & " #))"


'conn.Execute "INSERT INTO TempDB2 SELECT N_DOC, KPP, IN_POK, DATE, K_PRED, DOC_O1, N_SHF, TMC1, ADR1, N_POK, KOLO11, KOLO12, KOLO13, KOLO14, KOLO15, KOLO16, SUMO1, SUMO2, SUMO3, SUMO4, KVO1, PNDS1, PNDS2, PNDS3,PNDS4, PNDS5, PNDS6, CEN1, CEN2, CEN3, CEN4, CEN5, CEN6, REG," _
'& "IIf(PNDS1=0, (KOLO31*CEN2), 0)+IIf(PNDS2=0, (KOLO32*CEN2), 0)+IIf(PNDS3=0, (KOLO33*CEN3), 0)+IIf(PNDS4=0, (KOLO34*CEN4), 0)+IIf(PNDS5=0, (KOLO35*CEN5) ,0)+IIf(PNDS6=0, (KOLO36*CEN6) ,0)+IIf(NDSTR=0, (PTR3), 0) AS SUMNDS0, (Date_o3) as Date_o1," _
'& "IIf(PNDS1=10, (PNDS1*KOLO31*CEN1/100), 0)+IIf(PNDS2=10, (PNDS2*KOLO32*CEN2/100), 0)+IIf(PNDS3=10, (PNDS3*KOLO33*CEN3/100), 0)+IIf(PNDS4=10, (PNDS4*KOLO34*CEN4/100), 0)+IIf(PNDS5=10, (PNDS5*KOLO35*CEN5/100) ,0)+IIf(PNDS6=10, (PNDS6*KOLO36*CEN6/100) ,0)+IIf(NDSTR=10, (PTR3*NDSTR/110), 0) AS SUMNDS10," _
'& "IIf(PNDS1=18, (PNDS1*KOLO31*CEN1/100), 0)+IIf(PNDS2=18, (PNDS2*KOLO32*CEN2/100), 0)+IIf(PNDS3=18, (PNDS3*KOLO33*CEN3/100), 0)+IIf(PNDS4=18, (PNDS4*KOLO34*CEN4/100), 0)+IIf(PNDS5=18, (PNDS5*KOLO35*CEN5/100) ,0)+IIf(PNDS6=18, (PNDS6*KOLO36*CEN6/100) ,0)+IIf(NDSTR=18, (PTR3*NDSTR/118), 0) AS SUMNDS18," _
'& "IIf(PNDS1=20, (PNDS1*KOLO31*CEN1/100), 0)+IIf(PNDS2=20, (PNDS2*KOLO32*CEN2/100), 0)+IIf(PNDS3=20, (PNDS3*KOLO33*CEN3/100), 0)+IIf(PNDS4=20, (PNDS4*KOLO34*CEN4/100), 0)+IIf(PNDS5=20, (PNDS5*KOLO35*CEN5/100) ,0)+IIf(PNDS6=20, (PNDS6*KOLO36*CEN6/100) ,0)+IIf(NDSTR=20, (PTR3*NDSTR/120), 0) AS SUMNDS20," _
'& "IIf(PNDS1=10, ((KOLO31*CEN1)-(PNDS1*KOLO31*CEN1/100)), 0)+IIf(PNDS2=10, ((KOLO32*CEN2)-(PNDS2*KOLO32*CEN2/100)), 0)+IIf(PNDS3=10, ((KOLO33*CEN2)-(PNDS3*KOLO33*CEN3/100)), 0)+IIf(PNDS4=10, ((KOLO34*CEN4)-(PNDS4*KOLO34*CEN4/100)), 0)+IIf(PNDS5=10, ((KOLO35*CEN5)-(PNDS5*KOLO35*CEN5/100)) ,0)+IIf(PNDS6=10, ((KOLO36*CEN6)-(PNDS6*KOLO36*CEN6/100)) ,0)+IIf(NDSTR=10, (PTR3*NDSTR/110*100), 0) AS BEZNDS10," _
'& "IIf(PNDS1=18, ((KOLO31*CEN1)-(PNDS1*KOLO31*CEN1/100)), 0)+IIf(PNDS2=18, ((KOLO32*CEN2)-(PNDS2*KOLO32*CEN2/100)), 0)+IIf(PNDS3=18, ((KOLO33*CEN2)-(PNDS3*KOLO33*CEN3/100)), 0)+IIf(PNDS4=18, ((KOLO34*CEN4)-(PNDS4*KOLO34*CEN4/100)), 0)+IIf(PNDS5=18, ((KOLO35*CEN5)-(PNDS5*KOLO35*CEN5/100)) ,0)+IIf(PNDS6=18, ((KOLO36*CEN6)-(PNDS6*KOLO36*CEN6/100)) ,0)+IIf(NDSTR=18, (PTR3*NDSTR/118*100), 0) AS BEZNDS18," _
'& "IIf(PNDS1=20, ((KOLO31*CEN1)-(PNDS1*KOLO31*CEN1/100)), 0)+IIf(PNDS2=20, ((KOLO32*CEN2)-(PNDS2*KOLO32*CEN2/100)), 0)+IIf(PNDS3=20, ((KOLO33*CEN2)-(PNDS3*KOLO33*CEN3/100)), 0)+IIf(PNDS4=20, ((KOLO34*CEN4)-(PNDS4*KOLO34*CEN4/100)), 0)+IIf(PNDS5=20, ((KOLO35*CEN5)-(PNDS5*KOLO35*CEN5/100)) ,0)+IIf(PNDS6=20, ((KOLO36*CEN6)-(PNDS6*KOLO36*CEN6/100)) ,0)+IIf(NDSTR=20, (PTR3*NDSTR/120*100), 0) AS BEZNDS20," _
'& "(SUMNDS10+SUMNDS0+SUMNDS18+SUMNDS20+BEZNDS10+BEZNDS18+BEZNDS20) AS SUMOPLSNDS FROM DZ WHERE (tmc3 = '50' OR tmc3 = '51' OR tmc3 = '60' OR tmc3 = '61' OR tmc3 = '62') AND (TMC <> '19') AND (TMC <> '25') AND ((date_o3 >= # " & date_us1 & " #) AND (date_o3 <= # " & date_us2 & " #))"


'conn.Execute "INSERT INTO TempDB2 SELECT N_DOC, KPP, IN_POK, DATE, K_PRED, DOC_O1, N_SHF, TMC1, ADR1, N_POK, KOLO11, KOLO12, KOLO13, KOLO14, KOLO15, KOLO16, SUMO1, SUMO2, SUMO3, SUMO4, KVO1, PNDS1, PNDS2, PNDS3,PNDS4, PNDS5, PNDS6, CEN1, CEN2, CEN3, CEN4, CEN5, CEN6, REG," _
'& "IIf(PNDS1=0, (KOLO41*CEN2), 0)+IIf(PNDS2=0, (KOLO42*CEN2), 0)+IIf(PNDS3=0, (KOLO43*CEN3), 0)+IIf(PNDS4=0, (KOLO44*CEN4), 0)+IIf(PNDS5=0, (KOLO45*CEN5) ,0)+IIf(PNDS6=0, (KOLO46*CEN6) ,0)+IIf(NDSTR=0, (PTR4), 0) AS SUMNDS0, (Date_o4) as Date_o1," _
'& "IIf(PNDS1=10, (PNDS1*KOLO41*CEN1/100), 0)+IIf(PNDS2=10, (PNDS2*KOLO42*CEN2/100), 0)+IIf(PNDS3=10, (PNDS3*KOLO43*CEN3/100), 0)+IIf(PNDS4=10, (PNDS4*KOLO44*CEN4/100), 0)+IIf(PNDS5=10, (PNDS5*KOLO45*CEN5/100) ,0)+IIf(PNDS6=10, (PNDS6*KOLO46*CEN6/100) ,0)+IIf(NDSTR=10, (PTR4*NDSTR/110), 0) AS SUMNDS10," _
'& "IIf(PNDS1=18, (PNDS1*KOLO41*CEN1/100), 0)+IIf(PNDS2=18, (PNDS2*KOLO42*CEN2/100), 0)+IIf(PNDS3=18, (PNDS3*KOLO43*CEN3/100), 0)+IIf(PNDS4=18, (PNDS4*KOLO44*CEN4/100), 0)+IIf(PNDS5=18, (PNDS5*KOLO45*CEN5/100) ,0)+IIf(PNDS6=18, (PNDS6*KOLO46*CEN6/100) ,0)+IIf(NDSTR=18, (PTR4*NDSTR/118), 0) AS SUMNDS18," _
'& "IIf(PNDS1=20, (PNDS1*KOLO41*CEN1/100), 0)+IIf(PNDS2=20, (PNDS2*KOLO42*CEN2/100), 0)+IIf(PNDS3=20, (PNDS3*KOLO43*CEN3/100), 0)+IIf(PNDS4=20, (PNDS4*KOLO44*CEN4/100), 0)+IIf(PNDS5=20, (PNDS5*KOLO45*CEN5/100) ,0)+IIf(PNDS6=20, (PNDS6*KOLO46*CEN6/100) ,0)+IIf(NDSTR=20, (PTR4*NDSTR/120), 0) AS SUMNDS20," _
'& "IIf(PNDS1=10, ((KOLO41*CEN1)-(PNDS1*KOLO41*CEN1/100)), 0)+IIf(PNDS2=10, ((KOLO42*CEN2)-(PNDS2*KOLO42*CEN2/100)), 0)+IIf(PNDS3=10, ((KOLO43*CEN2)-(PNDS3*KOLO43*CEN3/100)), 0)+IIf(PNDS4=10, ((KOLO44*CEN4)-(PNDS4*KOLO44*CEN4/100)), 0)+IIf(PNDS5=10, ((KOLO45*CEN5)-(PNDS5*KOLO45*CEN5/100)) ,0)+IIf(PNDS6=10, ((KOLO46*CEN6)-(PNDS6*KOLO46*CEN6/100)) ,0)+IIf(NDSTR=10, (PTR4*NDSTR/110*100), 0) AS BEZNDS10," _
'& "IIf(PNDS1=18, ((KOLO41*CEN1)-(PNDS1*KOLO41*CEN1/100)), 0)+IIf(PNDS2=18, ((KOLO42*CEN2)-(PNDS2*KOLO42*CEN2/100)), 0)+IIf(PNDS3=18, ((KOLO43*CEN2)-(PNDS3*KOLO43*CEN3/100)), 0)+IIf(PNDS4=18, ((KOLO44*CEN4)-(PNDS4*KOLO44*CEN4/100)), 0)+IIf(PNDS5=18, ((KOLO45*CEN5)-(PNDS5*KOLO45*CEN5/100)) ,0)+IIf(PNDS6=18, ((KOLO46*CEN6)-(PNDS6*KOLO46*CEN6/100)) ,0)+IIf(NDSTR=18, (PTR4*NDSTR/118*100), 0) AS BEZNDS18," _
'& "IIf(PNDS1=20, ((KOLO41*CEN1)-(PNDS1*KOLO41*CEN1/100)), 0)+IIf(PNDS2=20, ((KOLO42*CEN2)-(PNDS2*KOLO42*CEN2/100)), 0)+IIf(PNDS3=20, ((KOLO43*CEN2)-(PNDS3*KOLO43*CEN3/100)), 0)+IIf(PNDS4=20, ((KOLO44*CEN4)-(PNDS4*KOLO44*CEN4/100)), 0)+IIf(PNDS5=20, ((KOLO45*CEN5)-(PNDS5*KOLO45*CEN5/100)) ,0)+IIf(PNDS6=20, ((KOLO46*CEN6)-(PNDS6*KOLO46*CEN6/100)) ,0)+IIf(NDSTR=20, (PTR4*NDSTR/120*100), 0) AS BEZNDS20," _
'& "(SUMNDS10+SUMNDS0+SUMNDS18+SUMNDS20+BEZNDS10+BEZNDS18+BEZNDS20) AS SUMOPLSNDS FROM DZ WHERE (tmc4 = '50' OR tmc4 = '51' OR tmc4 = '60' OR tmc4 = '61' OR tmc3 = '62') AND (TMC <> '19') AND (TMC <> '25') AND ((date_o4 >= # " & date_us1 & " #) AND (date_o4 <= # " & date_us2 & " #))"
...
Рейтинг: 0 / 0
21.12.2005, 09:32:53
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / датагрид с чекбоксами и второй датагрид
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33447703&tid=2166655]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 193ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 194ms
total:  487ms
созд. / загр.: 487ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]